Resident data ends at 8f80, program starts at 8f80, file ends at 37d38 Starting analysis pass at address 8f7d End of analysis pass, low address = 8f80, high address = 28b44 [Start of code] Main routine R0001, 0 locals CALL_2N R0316 (#d4) CALL_2N R0316 (#d3) CALL_2N R0316 (#d2) CALL_VN R0150 (#01,#ea) CALL_1N R0248 CALL_VN R0150 (#05,#e7) CALL_VN R0150 (#08,#97) CALL_VN R0150 (#09,#c9) CALL_1N R0251 CALL_VN R0150 (#1c,#0192) CALL_1N R0157 PRINT " It's become a matter of pride now not to give up. That tourist map of Paris must be up here somewhere in all this clutter, even if it has been five years since your last trip. And it's your own fault. It looks as if your great-grandfather was the last person to tidy up these lofts... " CALL_1N R0029 CALL_1N R0198 CALL_1N R0024 RTRUE Routine R0002, 7 locals L0001: STORE L03,#00 DEC L03 L0002: JL L03,#09 [FALSE] L0003 INC L03 LOADB L01,L03 -> -(SP) STOREB G6a,L03,(SP)+ JUMP L0002 L0003: NEW_LINE CALL_1N R0025 PRINT_CHAR '>' STOREB L00,#01,#00 CALL_1N R0159 READ L00,L01 -> Gef LOADB L01,#01 -> L02 JE L02,#00 [FALSE] L0004 PRINT "I beg your pardon? " JUMP L0001 L0004: LOADW L01,#01 -> L04 JE L04,"o","oops" [FALSE] L0005 JUMP L0016 L0005: JE L04,"undo" [FALSE] L0012 JE G00,#0121,#011f [FALSE] L0006 PRINT "[For some reason, "undo" has completely broken down here. Spooky!] " JUMP L0001 L0006: JE G29,#00 [FALSE] L0007 PRINT "[Your interpreter does not provide "undo". Sorry!] " JUMP L0001 L0007: JE G29,#01 [FALSE] L0008 JUMP L0010 L0008: JE G7f,#01 [FALSE] L0009 PRINT "[Can't "undo" twice in succession. Sorry!] " JUMP L0001 L0009: RESTORE_UNDO -> L03 JE L03,#00 [FALSE] L0011 L0010: PRINT ""Undo" failed. [Perhaps your interpreter does not provide it.] " L0011: JUMP L0001 L0012: SAVE_UNDO -> L03 STORE G7f,#00 STORE G29,#02 JE L03,#ffff [FALSE] L0013 STORE G29,#00 L0013: JE L03,#00 [FALSE] L0014 STORE G29,#01 L0014: JE L03,#02 [FALSE] L0015 PRINT " " PRINT_OBJ G00 PRINT " [Previous turn undone] " CALL_2N R0041 (#2d) STORE G41,#01 STORE G7f,#01 JUMP L0001 L0015: RET L02 L0016: JE G68,#00 [FALSE] L0017 PRINT "Sorry, that can't be corrected. " JUMP L0001 L0017: JE L02,#01 [FALSE] L0018 PRINT "Think nothing of it. " JUMP L0001 L0018: JG L02,#02 [FALSE] L0019 PRINT ""Oops" can only correct a single word. " JUMP L0001 L0019: LOADW L01,#03 -> L05 LOADW L01,#04 -> L06 STORE L03,#00 DEC L03 L0020: JL L03,#09 [FALSE] L0021 INC L03 LOADB G6a,L03 -> -(SP) STOREB L01,L03,(SP)+ JUMP L0020 L0021: MUL #02,G68 -> -(SP) SUB (SP)+,#01 -> L04 STOREW L01,L04,L05 INC L04 STOREW L01,L04,L05 RET L02 Routine R0003, 10 locals JE G53,#01 [FALSE] L0003 STORE L05,#00 L0001: JL L05,#08 [FALSE] L0002 LOADW G77,L05 -> -(SP) STOREW L00,L05,(SP)+ INC L05 JUMP L0001 L0002: STORE G53,#00 RTRUE L0003: JE G7a,#01 [FALSE] L0006 STORE G7a,#00 STORE L05,#00 L0004: JL L05,#40 [FALSE] L0005 LOADB G58,L05 -> -(SP) STOREB G48,L05,(SP)+ INC L05 JUMP L0004 L0005: NEW_LINE JUMP L0007 L0006: CALL_VN R0002 (G47,G48) L0007: STORE G7c,#01 LOADB G48,#01 -> G5b STORE G5d,#01 STORE G4b,G03 L0008: STORE G5a,G5d CALL_1S R0020 -> G5c JE G5c,"g" [FALSE] L0009 STORE G5c,"again" L0009: JE G5c,"again" [FALSE] L0013 LOADB G59,#01 -> -(SP) JE (SP)+,#00 [FALSE] L0010 PRINT "You can hardly repeat that. " JUMP L0006 L0010: STORE L05,#00 L0011: JL L05,#40 [FALSE] L0012 LOADB G59,L05 -> -(SP) STOREB G48,L05,(SP)+ INC L05 JUMP L0011 L0012: JUMP L0007 L0013: JE G5c,"again" [TRUE] L0015 STORE L05,#00 L0014: JL L05,#40 [FALSE] L0015 LOADB G48,L05 -> -(SP) STOREB G59,L05,(SP)+ INC L05 JUMP L0014 L0015: JE G5c,#00 [FALSE] L0016 STORE G7c,#0b JUMP L0055 L0016: LOADB G5c,#06 -> -(SP) AND (SP)+,#01 -> -(SP) JE (SP)+,#00 [FALSE] L0028 STORE G5a,G5d CALL_VS R0011 (#01,#00,#00) -> L08 JE L08,#03e8 [FALSE] L0017 JUMP L0007 L0017: JE L08,#00 [TRUE] L0018 STOREW L00,#00,#13 STOREW L00,#01,#01 STOREW L00,#02,L08 JUMP L0075 L0018: JE G4b,G03 [FALSE] L0021 STORE L06,#02 L0019: JG L06,G5b [TRUE] L0021 CALL_1S R0020 -> L05 JE L05,"xcomma" [FALSE] L0020 JUMP L0022 L0020: INC L06 JUMP L0019 L0021: STORE G7c,#0b JUMP L0055 L0022: SUB G5a,#01 -> L06 JE L06,#01 [FALSE] L0023 PRINT "You can't begin with a comma. " JUMP L0006 L0023: STORE G5a,#01 STORE G74,#01 CALL_VS R0011 (G03,G00,#06) -> L08 JE L08,#03e8 [FALSE] L0024 JUMP L0007 L0024: JE L08,#00 [FALSE] L0025 PRINT "You seem to want to talk to someone, but I can't see whom. " JUMP L0006 L0025: TEST_ATTR L08,#04 [TRUE] L0026 TEST_ATTR L08,#1f [TRUE] L0026 PRINT "You can't talk to " CALL_2N R0290 (L08) PRINT ". " JUMP L0006 L0026: JE G5a,L06 [TRUE] L0027 PRINT "To talk to someone, try "someone, hello" or some such. " JUMP L0006 L0027: CALL_2N R0022 (L08) ADD L06,#01 -> G5d STORE G4b,L08 JUMP L0008 L0028: LOADB G5c,#06 -> -(SP) AND (SP)+,#02 -> G55 LOADB G5c,#07 -> -(SP) SUB #ff,(SP)+ -> L05 LOADW #00,#07 -> -(SP) LOADW (SP)+,L05 -> L01 LOADB L01,#00 -> -(SP) SUB (SP)+,#01 -> L03 STORE G6f,"it" STORE G70,G71 STORE L02,#00 L0029: JG L02,L03 [TRUE] L0055 MUL L02,#08 -> -(SP) ADD #01,(SP)+ -> -(SP) ADD L01,(SP)+ -> L04 STORE G76,#00 STORE G66,#00 STORE G65,#00 STORE G60,#00 ADD G5d,#01 -> G5a STORE G62,#01 L0030: JG G62,#06 [TRUE] L0054 STOREW G61,G62,#00 LOADB L04,G62 -> L07 ADD G62,#01 -> L09 STORE G74,#08 JG L09,#06 [TRUE] L0031 LOADB L04,L09 -> G74 L0031: JE G74,#00 [FALSE] L0033 STORE L09,G65 JG L07,#07 [TRUE] L0032 INC L09 L0032: LOADB L04,#00 -> -(SP) JL L09,(SP)+ [TRUE] L0033 STORE G74,#08 L0033: JG L07,#07 [FALSE] L0037 ADD #03e8,L07 -> -(SP) STOREW G61,G62,(SP)+ JG G5a,G5b [FALSE] L0035 JE G66,#00 [FALSE] L0034 LOADB L04,#00 -> -(SP) JL G65,(SP)+ [FALSE] L0034 STORE G66,G62 STORE G67,L07 L0034: JE G66,#00 [FALSE] L0035 JUMP L0054 L0035: JG G5a,G5b [TRUE] L0036 CALL_1S R0018 -> -(SP) JE L07,(SP)+ [TRUE] L0036 JUMP L0054 L0036: JUMP L0053 L0037: LOADB L04,#00 -> -(SP) JE G65,(SP)+ [FALSE] L0050 JG G5a,G5b [TRUE] L0041 CALL_1S R0020 -> L08 JE L08,"then","xcomma" [FALSE] L0038 STORE G7a,#01 SUB G5a,#01 -> G7b JUMP L0041 L0038: STORE L09,#00 L0039: JL L09,#08 [FALSE] L0040 LOADW G61,L09 -> -(SP) STOREW G63,L09,(SP)+ INC L09 JUMP L0039 L0040: STORE G64,G62 STORE G7c,#02 JUMP L0054 L0041: JE G60,#01 [FALSE] L0043 STORE G5a,G78 STORE L07,G79 CALL_VS R0004 (L00,L07) -> L08 JE L08,#03e8 [FALSE] L0042 JUMP L0007 L0042: JE L08,#00 [FALSE] L0043 JUMP L0054 L0043: JE G66,#00 [TRUE] L0044 PRINT "(" CALL_VN R0005 (G66,#01) PRINT ") " L0044: LOADB L04,#00 -> -(SP) STOREW L00,#01,(SP)+ LOADB L04,#07 -> -(SP) STOREW L00,#00,(SP)+ JG G65,#00 [FALSE] L0045 LOADW L00,#02 -> -(SP) JL (SP)+,#02 [TRUE] L0045 LOADW L00,#02 -> -(SP) CALL_2N R0022 ((SP)+) L0045: STORE G68,#00 JE G76,#00 [TRUE] L0048 JE G4b,G03 [FALSE] L0048 STORE G53,#01 STORE L05,#00 L0046: JL L05,#08 [FALSE] L0047 LOADW L00,L05 -> -(SP) STOREW G77,L05,(SP)+ INC L05 JUMP L0046 L0047: STOREW L00,#00,#02 STOREW L00,#01,#01 STOREW L00,#02,G76 PRINT "(first taking " CALL_2N R0290 (G76) PRINT ") " L0048: JE G7a,#01 [FALSE] L0049 STORE G5a,G7b JUMP L0075 L0049: RTRUE L0050: CALL_VS R0004 (L00,L07) -> L08 JE L08,#03e8 [FALSE] L0051 JUMP L0007 L0051: JE L08,#00 [FALSE] L0052 JUMP L0054 L0052: JE G5e,#01 [FALSE] L0053 ADD G65,#02 -> -(SP) STOREW L00,(SP)+,#00 STOREW G61,G62,#00 INC G65 L0053: INC G62 JUMP L0030 L0054: INC L02 JUMP L0029 L0055: JE G4b,G03 [TRUE] L0056 CALL_2S R0021 (G5d) -> G51 STORE G5a,G5d CALL_1S R0020 -> G50 STORE G4c,#4a STORE G4d,#01 STORE G4e,G4b STORE G4b,G03 RTRUE L0056: JE G7c,#01 [FALSE] L0057 PRINT "I didn't understand that sentence. " STORE G68,#01 L0057: JE G7c,#02 [FALSE] L0060 PRINT "I only understood you as far as wanting to " STORE L09,#00 L0058: JL L09,#08 [FALSE] L0059 LOADW G63,L09 -> -(SP) STOREW G61,L09,(SP)+ INC L09 JUMP L0058 L0059: STORE G62,G64 CALL_VN R0005 (#00,#01) PRINT ". " L0060: JE G7c,#03 [FALSE] L0061 PRINT "You can't see any such thing. " STORE G68,G69 L0061: JE G7c,#04 [FALSE] L0062 PRINT "You seem to have said too little! " L0062: JE G7c,#05 [FALSE] L0063 PRINT "You aren't holding that! " STORE G68,G69 L0063: JE G7c,#06 [FALSE] L0064 PRINT "You can't use multiple objects with that verb. " L0064: JE G7c,#07 [FALSE] L0065 PRINT "You can only use multiple objects once on a line. " L0065: JE G7c,#08 [FALSE] L0066 PRINT "I'm not sure what "" PRINT_ADDR G6f PRINT "" refers to. " L0066: JE G7c,#09 [FALSE] L0067 PRINT "You excepted something not included anyway! " L0067: JE G7c,#0a [FALSE] L0068 PRINT "You can only do that to something animate. " L0068: JE G7c,#0b [FALSE] L0069 PRINT "That's not a verb I recognise. " L0069: JE G7c,#0c [FALSE] L0070 PRINT "That's not something you need to refer to in the course of this game. " L0070: JE G7c,#0d [FALSE] L0071 PRINT "You can't see "" PRINT_ADDR G6f PRINT "" (" CALL_2N R0290 (G70) PRINT ") at the moment. " L0071: JE G7c,#0e [FALSE] L0072 PRINT "I didn't understand the way that finished. " L0072: JE G7c,#0f [FALSE] L0073 PRINT "He's the bafflement of Scotland Yard, the Flying Squad's despair: For when they reach the scene of crime - Macavity's not there! And neither is Austin, at the moment. " L0073: JE G7c,#10 [FALSE] L0074 PRINT "Aunt Jemima is in the Potting Room. " L0074: JUMP L0006 L0075: JG G5a,G5b [FALSE] L0076 RTRUE L0076: CALL_1S R0020 -> L05 JE L05,"then" [TRUE] L0077 JE L05,"xcomma" [FALSE] L0093 L0077: JG G5a,G5b [FALSE] L0078 LOADB G58,#01 -> -(SP) SUB (SP)+,#01 -> -(SP) STOREB G58,#01,(SP)+ STORE G7a,#00 RTRUE L0078: JE G4b,G03 [FALSE] L0079 STORE L06,#00 JUMP L0080 L0079: SUB G5d,#01 -> L06 L0080: ADD L06,#01 -> G7d SUB G5a,#02 -> G7e CALL_1S R0020 -> L05 JE L05,"again","g" [FALSE] L0087 STORE L05,#00 L0081: JL L05,L06 [FALSE] L0082 MUL #02,L05 -> -(SP) ADD (SP)+,#01 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L05 -> -(SP) ADD (SP)+,#01 -> -(SP) STOREW G58,(SP)+,(SP)+ MUL #02,L05 -> -(SP) ADD (SP)+,#02 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L05 -> -(SP) ADD (SP)+,#02 -> -(SP) STOREW G58,(SP)+,(SP)+ INC L05 JUMP L0081 L0082: STORE L05,G7d L0083: JG L05,G7e [TRUE] L0084 MUL #02,L05 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L06 -> -(SP) ADD #02,(SP)+ -> -(SP) STOREW G58,(SP)+,(SP)+ MUL #02,L05 -> -(SP) SUB (SP)+,#01 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L06 -> -(SP) ADD #01,(SP)+ -> -(SP) STOREW G58,(SP)+,(SP)+ INC L05 INC L06 JUMP L0083 L0084: STORE L05,G5a L0085: JG L05,G5b [TRUE] L0086 MUL #02,L05 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L06 -> -(SP) ADD #02,(SP)+ -> -(SP) STOREW G58,(SP)+,(SP)+ MUL #02,L05 -> -(SP) SUB (SP)+,#01 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L06 -> -(SP) ADD #01,(SP)+ -> -(SP) STOREW G58,(SP)+,(SP)+ INC L05 INC L06 JUMP L0085 L0086: STOREB G58,#01,L06 STORE G7a,#01 RTRUE JUMP L0088 L0087: DEC G5a L0088: STORE L05,#00 L0089: JL L05,L06 [FALSE] L0090 MUL #02,L05 -> -(SP) ADD (SP)+,#01 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L05 -> -(SP) ADD (SP)+,#01 -> -(SP) STOREW G58,(SP)+,(SP)+ MUL #02,L05 -> -(SP) ADD (SP)+,#02 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L05 -> -(SP) ADD (SP)+,#02 -> -(SP) STOREW G58,(SP)+,(SP)+ INC L05 JUMP L0089 L0090: STORE L05,G5a L0091: JG L05,G5b [TRUE] L0092 MUL #02,L05 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L06 -> -(SP) ADD #02,(SP)+ -> -(SP) STOREW G58,(SP)+,(SP)+ MUL #02,L05 -> -(SP) SUB (SP)+,#01 -> -(SP) LOADW G48,(SP)+ -> -(SP) MUL #02,L06 -> -(SP) ADD #01,(SP)+ -> -(SP) STOREW G58,(SP)+,(SP)+ INC L05 INC L06 JUMP L0091 L0092: STOREB G58,#01,L06 STORE G7a,#01 RTRUE L0093: STORE G7c,#02 JUMP L0055 Routine R0004, 6 locals STORE G5e,#00 STORE L05,#00 L0001: CALL_1S R0020 -> L04 DEC G5a JE L04,"it","them" [FALSE] L0002 STORE G6f,L04 STORE G70,G71 JE G71,#00 [FALSE] L0002 STORE G7c,#08 RET #00 L0002: JE L04,"him" [FALSE] L0003 STORE G6f,L04 STORE G70,G72 JE G72,#00 [FALSE] L0003 STORE G7c,#08 RET #00 L0003: JE L04,"her" [FALSE] L0004 STORE G6f,L04 STORE G70,G73 JE G73,#00 [FALSE] L0004 STORE G7c,#08 RET #00 L0004: JE L04,"the" [FALSE] L0005 INC G5a JUMP L0001 L0005: STORE G75,#00 JE L04,"a","an","any" [FALSE] L0006 INC G5a STORE G75,#01 L0006: JE L04,"either" [FALSE] L0007 INC G5a STORE G75,#01 L0007: JE L01,#07 [FALSE] L0008 CALL_2S R0021 (G5a) -> G51 CALL_1S R0020 -> G50 ADD G65,#02 -> -(SP) STOREW L00,(SP)+,#01 INC G65 STOREW G61,G62,#01 JUMP L0041 L0008: STORE G5f,#00 JE L04,"cards" [FALSE] L0009 STORE L04,"all" STORE G5f,#1b L0009: JE L04,"rods" [FALSE] L0010 STORE L04,"all" STORE G5f,#12 L0010: JE L04,"books" [FALSE] L0011 STORE L04,"all" STORE G5f,#23 L0011: JE L04,"everythin","both","all" [FALSE] L0029 JL L01,#02 [FALSE] L0012 STORE G7c,#06 RET #00 L0012: JL L01,#06 [TRUE] L0013 STORE G7c,#06 RET #00 L0013: INC G60 JG G60,#02 [FALSE] L0014 STORE G7c,#07 RET #00 L0014: JE G60,#01 [FALSE] L0015 STORE G78,G5a STORE G79,L01 CALL_2N R0007 (G00) L0015: JE G60,#02 [FALSE] L0021 JE L01,#02 [FALSE] L0017 JE G00,#0c [FALSE] L0016 CALL_2N R0007 (G00) JUMP L0017 L0016: GET_PARENT G03 -> -(SP) CALL_2N R0007 ((SP)+) L0017: JE L01,#03 [FALSE] L0018 CALL_2N R0007 (G4b) L0018: JE L01,#04 [FALSE] L0019 CALL_2N R0007 (G4b) LOADW L00,#03 -> -(SP) GET_PARENT (SP)+ -> -(SP) JE (SP)+,G4b [FALSE] L0019 LOADW L00,#03 -> -(SP) CALL_2N R0009 ((SP)+) L0019: JE L01,#05 [FALSE] L0020 LOADW L00,#03 -> -(SP) CALL_2N R0007 ((SP)+) L0020: JE G5f,#00 [TRUE] L0021 CALL_2N R0010 (G5f) L0021: INC G5a L0022: CALL_1S R0020 -> L04 JE L04,"the","of" [FALSE] L0023 JUMP L0022 L0023: JE L04,"rods" [FALSE] L0024 CALL_2N R0010 (#12) JUMP L0022 L0024: JE L04,"cards" [FALSE] L0025 CALL_2N R0010 (#1b) JUMP L0022 L0025: JE L04,"books" [FALSE] L0026 CALL_2N R0010 (#23) JUMP L0022 L0026: JE L04,"except" [FALSE] L0027 STORE L04,"but" L0027: JE L04,"but" [FALSE] L0028 STORE L05,#02 JUMP L0001 L0028: DEC G5a JUMP L0049 L0029: STORE G68,G5a JE L01,#01 [TRUE] L0036 CALL_VS R0011 (G00,G4b,L01) -> L02 JE L02,#03e8 [FALSE] L0030 RET L02 L0030: JE L02,#00 [FALSE] L0031 CALL_1S R0006 -> G7c RET #00 L0031: JE L02,#01 [FALSE] L0032 ADD G65,#02 -> -(SP) STOREW L00,(SP)+,#00 INC G65 STOREW G61,G62,#00 RET #01 L0032: JE L01,#06 [FALSE] L0033 TEST_ATTR L02,#04 [TRUE] L0033 STORE G7c,#0a RET #00 L0033: JE L05,#00 [FALSE] L0034 ADD G65,#02 -> -(SP) STOREW L00,(SP)+,L02 INC G65 STOREW G61,G62,L02 L0034: JE L05,#01 [FALSE] L0035 CALL_2N R0008 (L02) L0035: JE L05,#02 [FALSE] L0036 CALL_2S R0009 (L02) -> L03 JE G60,#01 [TRUE] L0036 JE L03,#00 [TRUE] L0036 STORE G7c,L03 RET #00 L0036: JE L01,#01 [FALSE] L0041 CALL_VS R0011 (G4b,G00,L01) -> L02 JE L02,#03e8 [FALSE] L0037 RET L02 L0037: JE L02,#00 [FALSE] L0038 CALL_1S R0006 -> G7c RET L02 L0038: GET_PARENT L02 -> L04 JE L04,G4b [TRUE] L0040 JE G53,#01 [FALSE] L0039 STORE G69,G68 STORE G7c,#05 RET #00 L0039: STORE G76,L02 L0040: ADD G65,#02 -> -(SP) STOREW L00,(SP)+,L02 INC G65 STOREW G61,G62,L02 L0041: CALL_1S R0020 -> L04 CALL_VS R0016 (L02,L04) -> -(SP) JE #00,(SP)+ [TRUE] L0042 JUMP L0041 L0042: JE L04,"and","xcomma" [FALSE] L0048 CALL_1S R0020 -> L04 DEC G5a JE L04,"and","xcomma" [FALSE] L0043 INC G5a L0043: JL L01,#02 [FALSE] L0044 STORE G7c,#06 RET #00 L0044: JL L01,#06 [TRUE] L0045 STORE G7c,#06 RET #00 L0045: JE L05,#00 [FALSE] L0046 STORE L05,#01 L0046: JE G5e,#00 [FALSE] L0047 STOREW G4f,#00,#01 STOREW G4f,#01,L02 DEC G65 STORE G5e,#01 L0047: JUMP L0001 L0048: DEC G5a L0049: RET #01 Routine R0005, 6 locals JE L00,#00 [FALSE] L0003 STORE L02,G5c STORE L00,#01 STORE L05,#01 JE L02,"inventory" [FALSE] L0001 PRINT "take an inventory" JUMP L0003 L0001: JE L02,"in" [FALSE] L0002 PRINT "enter" JUMP L0003 L0002: PRINT_ADDR L02 L0003: SUB G62,L01 -> L03 STORE L04,L00 L0004: JG L04,L03 [TRUE] L0010 JE L05,#01 [FALSE] L0005 PRINT_CHAR ' ' L0005: LOADW G61,L04 -> L02 JE L02,#00 [FALSE] L0006 PRINT "those things" JUMP L0009 L0006: JE L02,#01 [FALSE] L0007 PRINT "that" JUMP L0009 L0007: JL L02,#03e8 [TRUE] L0008 SUB L02,#03e8 -> -(SP) CALL_2S R0019 ((SP)+) -> L02 PRINT_ADDR L02 JUMP L0009 L0008: CALL_2N R0290 (L02) L0009: STORE L05,#01 INC L04 JUMP L0004 L0010: RTRUE Routine R0006, 3 locals STORE G69,G68 DEC G5a CALL_1S R0020 -> L01 STORE L02,#03 JE L01,G6f [FALSE] L0001 STORE L02,#0d L0001: GET_PARENT G4b -> L00 TEST_ATTR L00,#11 [FALSE] L0002 CALL_VS R0016 (L00,L01) -> -(SP) JE (SP)+,#01 [FALSE] L0002 STORE L02,#0c L0002: JE L01,"austin","cat" [FALSE] L0003 STORE L02,#0f L0003: JE L01,"aunt","jemima" [FALSE] L0004 STORE L02,#10 L0004: RET L02 Routine R0007, 2 locals STORE G5e,#01 STOREW G4f,#00,#00 GET_CHILD L00 -> L01 [TRUE] L0001 L0001: JE L01,#00 [TRUE] L0004 TEST_ATTR L01,#01 [TRUE] L0002 TEST_ATTR L01,#02 [TRUE] L0002 CALL_2N R0008 (L01) L0002: GET_SIBLING L01 -> L01 [TRUE] L0003 L0003: JUMP L0001 L0004: RTRUE Routine R0008, 3 locals LOADW G4f,#00 -> L01 JE L01,#3f [FALSE] L0001 STORE G4a,#01 RTRUE L0001: STORE L02,#01 L0002: JG L02,L01 [TRUE] L0004 LOADW G4f,L02 -> -(SP) JE L00,(SP)+ [FALSE] L0003 RTRUE L0003: INC L02 JUMP L0002 L0004: INC L01 STOREW G4f,L01,L00 STOREW G4f,#00,L01 RTRUE Routine R0009, 5 locals LOADW G4f,#00 -> L01 STORE L04,#00 STORE L02,#01 L0001: JG L02,L01 [TRUE] L0005 LOADW G4f,L02 -> -(SP) JE L00,(SP)+ [FALSE] L0004 STORE L03,L02 L0002: JG L03,L01 [TRUE] L0003 ADD L03,#01 -> -(SP) LOADW G4f,(SP)+ -> -(SP) STOREW G4f,L03,(SP)+ INC L03 JUMP L0002 L0003: DEC L01 STOREW G4f,#00,L01 RET L04 L0004: INC L02 JUMP L0001 L0005: STORE L04,#09 RET L04 Routine R0010, 4 locals L0001: LOADW G4f,#00 -> L01 STORE L02,#01 L0002: JG L02,L01 [TRUE] L0004 LOADW G4f,L02 -> L03 TEST_ATTR L03,L00 [TRUE] L0003 CALL_2N R0009 (L03) JUMP L0001 L0003: INC L02 JUMP L0002 L0004: RTRUE Routine R0011, 9 locals STORE G6d,#00 STORE G6c,#00 STORE G6e,G5a CALL_2N R0014 (L00) CALL_2N R0014 (L01) ADD G6e,G6d -> G5a JE G6c,#00 [FALSE] L0001 INC G5a RFALSE L0001: JG G6e,G5b [TRUE] L0005 JE G6c,#01 [FALSE] L0002 LOADW G6b,#00 -> L04 RET L04 L0002: JG G5a,G5b [TRUE] L0005 JE G74,#08 [FALSE] L0003 CALL_1S R0020 -> L04 DEC G5a JE L04,"and","xcomma","then" [TRUE] L0003 RFALSE L0003: JG G74,#08 [FALSE] L0005 CALL_1S R0018 -> -(SP) JE G74,(SP)+ [TRUE] L0004 DEC G5a RFALSE L0004: DEC G5a L0005: JE G6c,#01 [FALSE] L0006 LOADW G6b,#00 -> L04 L0006: JG G6c,#01 [FALSE] L0007 CALL_2S R0012 (L02) -> L04 L0007: JE L04,#00 [TRUE] L0009 JE G66,#00 [FALSE] L0008 STORE G66,G62 L0008: STOREW G61,G62,L04 RET L04 L0009: JG G6e,G5b [FALSE] L0010 JUMP L0027 L0010: JE L02,#06 [FALSE] L0011 PRINT "Who" JUMP L0012 L0011: PRINT "Which" L0012: PRINT " do you mean, " SUB G6c,#01 -> L05 STORE L04,#00 L0013: JL L04,G6c [FALSE] L0016 LOADW G6b,L04 -> L06 CALL_2N R0290 (L06) SUB L05,#01 -> -(SP) JL L04,(SP)+ [FALSE] L0014 PRINT ", " L0014: SUB L05,#01 -> -(SP) JE L04,(SP)+ [FALSE] L0015 PRINT " or " L0015: INC L04 JUMP L0013 L0016: PRINT "? " L0017: CALL_VS R0002 (G57,G58) -> L08 LOADW G58,#01 -> L03 JE L03,"all","both","everythin" [FALSE] L0021 JL L02,#02 [TRUE] L0020 JG L02,#05 [TRUE] L0020 STORE L04,#00 L0018: JG L04,L05 [TRUE] L0019 LOADW G6b,L04 -> L06 ADD L04,#01 -> -(SP) STOREW G4f,(SP)+,L06 INC L04 JUMP L0018 L0019: ADD L05,#01 -> -(SP) STOREW G4f,#00,(SP)+ RTRUE L0020: PRINT "Sorry, you can only have one item here. Which one exactly? " JUMP L0017 L0021: JE L03,"short","long","watch" [TRUE] L0022 LOADB L03,#06 -> L05 AND L05,#01 -> -(SP) JE #00,(SP)+ [TRUE] L0022 CALL_VN R0458 (G47,G57) CALL_VN R0458 (G48,G58) RET #03e8 L0022: LOADB G48,#01 -> L07 ADD L08,L07 -> -(SP) STOREB G48,#01,(SP)+ ADD L07,L08 -> L06 L0023: JG L06,G6e [FALSE] L0024 SUB L06,L08 -> -(SP) CALL_VN R0013 (L06,G48,(SP)+) DEC L06 JUMP L0023 L0024: STORE L06,#01 L0025: JG L06,L08 [TRUE] L0026 SUB L06,#01 -> -(SP) ADD G6e,(SP)+ -> -(SP) CALL_VN R0013 ((SP)+,G58,L06) INC L06 JUMP L0025 L0026: RET #03e8 L0027: JE L02,#06 [FALSE] L0028 PRINT "Whom" JUMP L0029 L0028: PRINT "What" L0029: PRINT " do you want" JE G4b,G03 [TRUE] L0030 PRINT " " CALL_2N R0290 (G4b) L0030: PRINT " to " CALL_VN R0005 (#00,#01) PRINT "? " CALL_VS R0002 (G57,G58) -> L08 LOADW G58,#01 -> L03 JE L03,"short","long","watch" [TRUE] L0031 LOADB L03,#06 -> L05 AND L05,#01 -> -(SP) JE #00,(SP)+ [TRUE] L0031 CALL_VN R0458 (G47,G57) CALL_VN R0458 (G48,G58) RET #03e8 L0031: LOADB G48,#01 -> L07 JE G66,#00 [FALSE] L0034 STORE L06,#01 L0032: JG L06,L08 [TRUE] L0033 SUB L06,#01 -> -(SP) ADD G6e,(SP)+ -> -(SP) CALL_VN R0013 ((SP)+,G58,L06) INC L06 JUMP L0032 L0033: JUMP L0037 L0034: STORE L06,#01 L0035: JG L06,L08 [TRUE] L0036 ADD G6e,L06 -> -(SP) CALL_VN R0013 ((SP)+,G58,L06) INC L06 JUMP L0035 L0036: CALL_2S R0019 (G67) -> -(SP) STOREW G58,#01,(SP)+ CALL_VN R0013 (G6e,G58,#01) INC L08 L0037: ADD L08,L07 -> -(SP) STOREB G48,#01,(SP)+ RET #03e8 Routine R0012, 7 locals SUB G6c,#01 -> L02 STORE L03,#00 LOADW G6b,#00 -> L04 STORE L01,#00 L0001: JG L01,L02 [TRUE] L0010 LOADW G6b,L01 -> L05 TEST_ATTR L05,#01 [TRUE] L0009 STORE L06,L05 L0002: GET_PARENT L06 -> L06 JE L06,G00,G4b,#00 [FALSE] L0002 JE L00,#00 [FALSE] L0003 JE L06,G00 [FALSE] L0003 INC L03 STORE L04,L05 L0003: JE L00,#01 [FALSE] L0004 GET_PARENT L05 -> -(SP) JE (SP)+,G4b [FALSE] L0004 INC L03 STORE L04,L05 L0004: JE L00,#02 [FALSE] L0005 JE L06,G00 [FALSE] L0005 INC L03 STORE L04,L05 L0005: JE L00,#03 [FALSE] L0006 GET_PARENT L05 -> -(SP) JE (SP)+,G4b [FALSE] L0006 INC L03 STORE L04,L05 L0006: JE L00,#04 [FALSE] L0007 GET_PARENT L05 -> -(SP) JE (SP)+,G4b [FALSE] L0007 INC L03 STORE L04,L05 L0007: JE L00,#05 [FALSE] L0008 GET_PARENT L05 -> -(SP) JE (SP)+,G4b [FALSE] L0008 INC L03 STORE L04,L05 L0008: JE L00,#06 [FALSE] L0009 TEST_ATTR L05,#04 [FALSE] L0009 INC L03 STORE L04,L05 L0009: INC L01 JUMP L0001 L0010: JE L03,#01 [TRUE] L0011 JE G75,#01 [FALSE] L0012 L0011: RET L04 L0012: TEST_ATTR L04,#20 [FALSE] L0013 RET L04 L0013: RET #00 Routine R0013, 5 locals MUL L00,#02 -> -(SP) SUB (SP)+,#01 -> L03 MUL L02,#02 -> -(SP) SUB (SP)+,#01 -> L04 PUSH L04 INC L04 LOADW L01,(SP)+ -> -(SP) PUSH L03 INC L03 STOREW G48,(SP)+,(SP)+ LOADW L01,L04 -> -(SP) STOREW G48,L03,(SP)+ RTRUE Routine R0014, 3 locals JE L00,#00 [FALSE] L0001 RTRUE L0001: JE L00,G00 [FALSE] L0002 CALL_2N R0014 (#01) L0002: GET_CHILD L00 -> L00 [TRUE] L0003 L0003: JE L00,#00 [TRUE] L0016 JG G6e,G5b [FALSE] L0004 CALL_VN R0015 (L00,#01) JUMP L0011 L0004: STORE G5a,G6e CALL_1S R0017 -> L01 JE L01,#01 [FALSE] L0005 JE G71,L00 [FALSE] L0005 CALL_VN R0015 (G71,#01) L0005: JE L01,#02 [FALSE] L0006 JE G72,L00 [FALSE] L0006 CALL_VN R0015 (G72,#01) L0006: JE L01,#03 [FALSE] L0007 JE G73,L00 [FALSE] L0007 CALL_VN R0015 (G73,#01) L0007: CALL_VS R0016 (L00,L01) -> -(SP) JE #00,(SP)+ [FALSE] L0008 JUMP L0011 L0008: STORE L02,#00 L0009: CALL_VS R0016 (L00,L01) -> -(SP) JE #00,(SP)+ [TRUE] L0010 CALL_1S R0020 -> L01 INC L02 JUMP L0009 L0010: CALL_VN R0015 (L00,L02) L0011: GET_CHILD L00 -> -(SP) [TRUE] L0012 L0012: JE (SP)+,#00 [TRUE] L0014 TEST_ATTR L00,#08 [FALSE] L0014 TEST_ATTR L00,#0a [TRUE] L0013 TEST_ATTR L00,#09 [TRUE] L0014 L0013: CALL_2N R0014 (L00) L0014: GET_SIBLING L00 -> L00 [TRUE] L0015 L0015: JUMP L0003 L0016: RTRUE Routine R0015, 2 locals JL L01,G6d [FALSE] L0001 RTRUE L0001: JG L01,G6d [FALSE] L0002 STORE G6d,L01 STORE G6c,#00 L0002: PUSH G6c INC G6c STOREW G6b,(SP)+,L00 RTRUE Routine R0016, 5 locals JE L00,#00 [FALSE] L0001 RFALSE L0001: GET_PROP_ADDR L00,#01 -> L02 GET_PROP_ADDR L00,#01 -> -(SP) STORE Gef,(SP)+ JZ Gef [TRUE] L0002 GET_PROP_LEN Gef -> Gef L0002: PUSH Gef DIV (SP)+,#02 -> -(SP) SUB (SP)+,#01 -> L03 STORE L04,#00 L0003: JG L04,L03 [TRUE] L0005 LOADW L02,L04 -> -(SP) JE L01,(SP)+ [FALSE] L0004 RTRUE L0004: INC L04 JUMP L0003 L0005: RFALSE Routine R0017, 1 local CALL_1S R0020 -> L00 JE L00,"it","them" [FALSE] L0001 RET #01 L0001: JE L00,"him" [FALSE] L0002 RET #02 L0002: JE L00,"her" [FALSE] L0003 RET #03 L0003: JE L00,#00 [FALSE] L0004 RFALSE L0004: LOADB L00,#06 -> -(SP) AND (SP)+,#80 -> -(SP) JE (SP)+,#00 [FALSE] L0005 RFALSE L0005: RET L00 Routine R0018, 2 locals CALL_1S R0020 -> L01 JE L01,#00 [FALSE] L0001 RFALSE L0001: LOADB L01,#06 -> L00 AND L00,#08 -> -(SP) JE (SP)+,#00 [FALSE] L0002 RFALSE L0002: LOADB L01,#08 -> -(SP) RET (SP)+ Routine R0019, 2 locals STORE L01,#63d7 L0001: JE #01,#01 [FALSE] L0003 LOADW L01,#01 -> -(SP) JE L00,(SP)+ [FALSE] L0002 LOADW L01,#00 -> -(SP) RET (SP)+ L0002: ADD L01,#04 -> L01 JUMP L0001 L0003: STORE L01,#63d7 PRINT "" RET L01 Routine R0020, 3 locals LOADB G48,#01 -> -(SP) JG G5a,(SP)+ [FALSE] L0001 INC G5a RFALSE L0001: MUL G5a,#02 -> -(SP) SUB (SP)+,#01 -> L00 INC G5a LOADW G48,L00 -> L01 JE L01,#00 [FALSE] L0003 MUL G5a,#04 -> -(SP) SUB (SP)+,#03 -> L02 LOADB G48,L02 -> -(SP) LOADB G47,(SP)+ -> L00 JE L00,#2c [FALSE] L0002 STORE L01,"xcomma" L0002: JE L00,#2e [FALSE] L0003 STORE L01,"then" L0003: RET L01 Routine R0021, 10 locals MUL L00,#04 -> -(SP) ADD (SP)+,#01 -> L01 LOADB G48,L01 -> L02 ADD L02,G47 -> L04 SUB L01,#01 -> -(SP) LOADB G48,(SP)+ -> L05 JE L05,#01 [FALSE] L0003 LOADB L04,#00 -> L03 JL L03,#61 [TRUE] L0003 JG L03,#74 [TRUE] L0003 SUB L03,#61 -> L03 INC L03 JE L03,#04,#06,#07 [FALSE] L0001 RFALSE L0001: JE L03,#0a,#0d,#11 [FALSE] L0002 RFALSE L0002: RET L03 L0003: JL L05,#04 [TRUE] L0004 STORE L06,#03e8 L0004: JE L05,#03 [FALSE] L0005 STORE L06,#64 L0005: JE L05,#02 [FALSE] L0006 STORE L06,#0a L0006: JE L05,#01 [FALSE] L0007 STORE L06,#01 L0007: STORE L07,#00 STORE L03,#00 SUB L05,#01 -> L05 STORE L03,#00 L0008: JG L03,L05 [TRUE] L0020 LOADB L04,L03 -> L09 JE L09,#30 [FALSE] L0009 STORE L08,#00 JUMP L0019 L0009: JE L09,#31 [FALSE] L0010 STORE L08,#01 JUMP L0019 L0010: JE L09,#32 [FALSE] L0011 STORE L08,#02 JUMP L0019 L0011: JE L09,#33 [FALSE] L0012 STORE L08,#03 JUMP L0019 L0012: JE L09,#34 [FALSE] L0013 STORE L08,#04 JUMP L0019 L0013: JE L09,#35 [FALSE] L0014 STORE L08,#05 JUMP L0019 L0014: JE L09,#36 [FALSE] L0015 STORE L08,#06 JUMP L0019 L0015: JE L09,#37 [FALSE] L0016 STORE L08,#07 JUMP L0019 L0016: JE L09,#38 [FALSE] L0017 STORE L08,#08 JUMP L0019 L0017: JE L09,#39 [FALSE] L0018 STORE L08,#09 JUMP L0019 L0018: RFALSE L0019: MUL L06,L08 -> -(SP) ADD L07,(SP)+ -> L07 DIV L06,#0a -> L06 INC L03 JUMP L0008 L0020: JG L05,#03 [FALSE] L0021 STORE L07,#2710 L0021: RET L07 Routine R0022, 1 local TEST_ATTR L00,#04 [FALSE] L0003 CALL_2S R0023 (L00) -> -(SP) JE (SP)+,#01 [FALSE] L0001 STORE G72,L00 JUMP L0002 L0001: STORE G73,L00 L0002: JUMP L0004 L0003: STORE G71,L00 L0004: RTRUE Routine R0023, 1 local JE L00,#85,#ed,#d1 [FALSE] L0001 RFALSE L0001: JE L00,#0122 [FALSE] L0002 RFALSE L0002: JE L00,#0163,#016b,#0195 [FALSE] L0003 RFALSE L0003: RTRUE Routine R0024, 5 locals STORE L00,#10 L0001: JL L00,#19 [FALSE] L0002 CALL_VN R0150 (L00,#019e) INC L00 JUMP L0001 L0002: STORE L00,#01 DEC L00 L0003: JL L00,#64 [FALSE] L0004 INC L00 RANDOM L00 -> L01 JUMP L0003 L0004: JE G36,#00 [FALSE] L0005 RANDOM #14 -> -(SP) SUB (SP)+,#0a -> G36 JUMP L0004 L0005: JE G37,#00 [FALSE] L0006 RANDOM #14 -> -(SP) SUB (SP)+,#0a -> G37 JUMP L0005 L0006: JE G05,#00 [FALSE] L0064 L0007: STORE G4d,#00 STORE G4e,#00 STORE G4c,#00 CALL_2N R0003 (G49) STORE G54,G53 STORE G53,#00 JE G4b,#77 [FALSE] L0008 STORE L00,#75 GET_PARENT L00 -> L00 JE L00,#77 [FALSE] L0008 STORE G4b,#75 L0008: JE G4b,#0d,#9d [FALSE] L0009 LOADW G49,#00 -> G4c CALL_1N R0220 JUMP L0059 L0009: JE G4b,#85 [FALSE] L0013 LOADW G49,#02 -> G4d LOADW G49,#03 -> G4e LOADW G49,#00 -> G4c JE G4c,#0f [FALSE] L0010 JE G4d,#84 [TRUE] L0011 L0010: JE G4c,#0e [FALSE] L0012 JE G4e,#84 [FALSE] L0012 L0011: PRINT ""I can't give you those, I'm using them!" (This is plainly not true, but you know how it is with aunts.) " JUMP L0059 L0012: PRINT "Aunt Jemima has never done what you suggested at the best of times. This is not the best of times. " JUMP L0059 L0013: JE G4b,#bd,#01aa [FALSE] L0014 LOADW G49,#00 -> G4c CALL_1N R0220 JUMP L0059 L0014: JE G4b,#4e [FALSE] L0017 LOADW G49,#00 -> G4c TEST_ATTR "painting of Mad Isaac Meldrewe",#06 [TRUE] L0015 GET_PARENT "painting of Mad Isaac Meldrewe" -> -(SP) JE (SP)+,#0139 [FALSE] L0015 CALL_1N R0220 JUMP L0016 L0015: PRINT "A breeze ripples the canvas of the unanchored painting, but that's all. " L0016: JUMP L0059 L0017: JE G4b,#75 [FALSE] L0018 LOADW G49,#02 -> G4d LOADW G49,#03 -> G4e LOADW G49,#00 -> G4c CALL_1N R0145 JUMP L0059 L0018: JE G4b,#0179 [FALSE] L0019 LOADW G49,#02 -> G4d LOADW G49,#03 -> G4e LOADW G49,#00 -> G4c CALL_1N R0116 JUMP L0059 L0019: JE G4b,#0126 [FALSE] L0020 PRINT "I can see you've never had a cat. " JUMP L0059 L0020: JE G4b,#016d [FALSE] L0026 TEST_ATTR "Old Evans",#19 [TRUE] L0021 PRINT ""Just a minute, I'm doing my form." " JUMP L0025 L0021: PRINT "He looks at you in a hypnotic daze," LOADW G49,#02 -> G4d LOADW G49,#03 -> G4e LOADW G49,#00 -> G4c JE G4c,#0e [FALSE] L0022 JE G4d,G03 [FALSE] L0022 JE G4e,#016f [TRUE] L0023 L0022: JE G4c,#0f [FALSE] L0024 JE G4e,G03 [FALSE] L0024 JE G4d,#016f [FALSE] L0024 L0023: INSERT_OBJ "Crescent Moon",G03 PUT_PROP "Old Evans",#02,S754 PRINT " and before you can say "How heartless I am" he obediently hands you the Moon. " CALL_2N R0040 (#1e) JUMP L0025 L0024: PRINT " unable to follow your perfectly clear instruction. " L0025: JUMP L0059 L0026: JE G4b,#0154 [FALSE] L0029 TEST_ATTR "Homer",#19 [FALSE] L0027 PRINT "Homer is far too busy composing Book XIV of the Iliad. " JUMP L0028 L0027: PRINT "Homer is asleep. " L0028: JUMP L0059 L0029: JE G4b,#01c2 [FALSE] L0031 LOADW G49,#00 -> -(SP) JE (SP)+,#7d [FALSE] L0030 CALL_1N R0130 JUMP L0059 L0030: PRINT "The slave doesn't seem to notice." JUMP L0059 L0031: JE G4b,G03 [TRUE] L0032 CALL_2N R0291 (G4b) PRINT " has better things to do. " JUMP L0059 L0032: JE G4a,#01 [FALSE] L0033 STORE G4a,#00 PRINT "(taking the first sixteen objects only) " L0033: STORE L04,#00 JE G4c,#00 [TRUE] L0034 STORE L04,#01 L0034: JE G4c,#00 [FALSE] L0035 LOADW G49,#00 -> G4c L0035: STORE G55,#00 JE G4c,#15,#16,#2b [FALSE] L0036 STORE G55,#01 L0036: JE G4c,#2c,#29,#2a [FALSE] L0037 STORE G55,#01 L0037: JE G4c,#27,#28,#26 [FALSE] L0038 STORE G55,#01 L0038: JE G4c,#49,#47,#48 [FALSE] L0039 STORE G55,#01 L0039: JE G4c,#32,#33 [FALSE] L0040 STORE G55,#01 L0040: JL G4c,#89 [TRUE] L0041 JE G1f,#00 [FALSE] L0041 PRINT "You can't do that. " CALL_2N R0041 (#26) STORE G55,#01 JUMP L0059 L0041: JE G06,#0a [FALSE] L0044 JE G4c,#3d [FALSE] L0042 JUMP L0052 L0042: JE G4c,#43 [FALSE] L0043 JUMP L0052 L0043: JE G4c,#18 [FALSE] L0044 JUMP L0052 L0044: JE G06,#08,#0a [FALSE] L0052 JE G55,#00 [FALSE] L0052 JE G4c,#13 [FALSE] L0045 JUMP L0052 L0045: JE G4c,#02 [FALSE] L0046 JUMP L0052 L0046: JE G4c,#09 [FALSE] L0047 JUMP L0052 L0047: JE G4c,#17 [FALSE] L0048 JUMP L0052 L0048: JE G4c,#01 [FALSE] L0049 JUMP L0052 L0049: JE G4c,#5b [FALSE] L0050 JUMP L0052 L0050: JE G4c,#46,#4e [FALSE] L0051 JUMP L0052 L0051: PRINT "You seem unable to concentrate sufficiently. " JUMP L0059 L0052: JE L04,#00 [FALSE] L0053 LOADW G49,#01 -> L00 LOADW G49,#02 -> G4d LOADW G49,#03 -> G4e L0053: JE L04,#00 [TRUE] L0054 STORE L00,#02 L0054: CLEAR_ATTR "Prow of the Lady Magdalena",#19 STORE G52,#00 JE L00,#00 [FALSE] L0055 CALL_VN R0026 (#00,#00,G4c) L0055: JG L00,#00 [FALSE] L0059 JE G4d,#00 [TRUE] L0056 CALL_VN R0026 (G4d,G4e,G4c) L0056: JE G4d,#00 [FALSE] L0059 STORE G52,#01 LOADW G4f,#00 -> L01 JE L01,#00 [FALSE] L0057 PRINT "Nothing to do! " JUMP L0007 L0057: STORE L02,#01 DEC L02 L0058: JL L02,L01 [FALSE] L0059 INC L02 LOADW G4f,L02 -> L03 PRINT_OBJ L03 PRINT ": " CALL_VN R0026 (L03,G4e,G4c) JUMP L0058 L0059: JE G53,#01 [FALSE] L0060 STORE G55,#01 L0060: JE G05,#00 [FALSE] L0063 JE G55,#00 [FALSE] L0063 CALL_1N R0031 JE G2b,#01 [FALSE] L0061 CALL_2N R0042 (G2d) L0061: JE G2b,#02 [FALSE] L0062 SUB G01,G2c -> -(SP) CALL_2N R0042 ((SP)+) L0062: STORE G2d,#00 STORE G2c,G01 L0063: JUMP L0006 L0064: JE G2a,#01 [FALSE] L0065 SET_TEXT_STYLE BOLDFACE L0065: PRINT " ***" JE G05,#01 [FALSE] L0066 PRINT " You have died " L0066: JE G05,#02 [FALSE] L0067 PRINT " You have won " L0067: JE G05,#03 [FALSE] L0068 PRINT " You have missed the point entirely " L0068: JE G05,#04 [FALSE] L0069 PRINT " You have disembodied the entire universe " L0069: JE G05,#05 [FALSE] L0070 PRINT " You have been transported to Australia " L0070: JE G05,#06 [FALSE] L0071 PRINT " You have been annihilated by a temporal paradox " L0071: JE G05,#07 [FALSE] L0072 PRINT " You have become a constellation " L0072: JE G05,#08 [FALSE] L0073 PRINT " You have been imprisoned as a terrorist " L0073: JE G05,#09 [FALSE] L0074 PRINT " You have been checkmated " L0074: PRINT "*** " JE G2a,#01 [FALSE] L0075 SET_TEXT_STYLE ROMAN L0075: CALL_1N R0160 JE G1e,#01 [FALSE] L0076 CALL_1N R0170 L0076: PRINT " Would you like to RESTART, RESTORE a saved game, give the FULL score for that game" JE G05,#02 [FALSE] L0077 PRINT ", see some suggestions for AMUSING things to do" L0077: PRINT " or QUIT? " L0078: PRINT_CHAR '?' PRINT_CHAR ' ' STOREB G47,#01,#00 CALL_1N R0159 READ G47,G48 -> Gef LOADW G48,#01 -> L00 JE L00,"quit" [FALSE] L0079 QUIT L0079: JE L00,"q" [FALSE] L0080 QUIT L0080: JE L00,"restart" [FALSE] L0081 RESTART L0081: JE L00,"restore" [FALSE] L0082 CALL_1N R0166 JUMP L0076 L0082: JE L00,"fullscore" [FALSE] L0083 CALL_1N R0163 JUMP L0076 L0083: JE G05,#02 [FALSE] L0084 JE L00,"amusing" [FALSE] L0084 NEW_LINE CALL_1N R0455 JUMP L0076 L0084: JE L00,"full" [FALSE] L0085 NEW_LINE CALL_1N R0163 JUMP L0076 L0085: JE L00,"undo" [FALSE] L0090 JE G29,#00 [FALSE] L0086 PRINT "[Your interpreter does not provide "undo". Sorry!] " JUMP L0076 L0086: JE G29,#01 [FALSE] L0087 JUMP L0088 L0087: RESTORE_UNDO -> L00 JE L00,#00 [FALSE] L0089 L0088: PRINT ""Undo" failed. [Perhaps your interpreter does not provide it.] " L0089: JUMP L0076 L0090: PRINT "Please answer RESTART, RESTORE, FULL" JE G05,#02 [FALSE] L0091 PRINT ", AMUSING" L0091: PRINT " or QUIT. " JUMP L0078 Routine R0025, 0 locals JE G2f,#ffff [TRUE] L0001 CALL_2N R0043 (G2f) STORE G2f,#ffff L0001: RTRUE Routine R0026, 3 locals STORE G4d,L00 STORE G4e,L01 STORE G4c,L02 JE G55,#01 [FALSE] L0001 JUMP L0006 L0001: JE G00,#00 [TRUE] L0005 JE G00,#0c [TRUE] L0002 GET_PROP G00,#05 -> L00 JUMP L0004 L0002: GET_PARENT G03 -> -(SP) JE (SP)+,#56 [FALSE] L0003 GET_PROP "Chimney",#05 -> L00 JUMP L0004 L0003: GET_PROP G00,#05 -> L00 L0004: JE L00,#ffff [TRUE] L0005 CALL_VS L00 -> -(SP) JE (SP)+,#00 [TRUE] L0005 RTRUE L0005: JE G4d,#00 [TRUE] L0006 GET_PROP G4d,#05 -> L00 JE L00,#ffff [TRUE] L0006 CALL_VS L00 -> -(SP) JE (SP)+,#00 [TRUE] L0006 RTRUE L0006: LOADW #6191,L02 -> L01 CALL_VS L01 -> Gef RTRUE Routine R0027, 2 locals STORE L01,G00 GET_PROP L01,#06 -> L00 JE L00,#ffff [FALSE] L0001 JUMP L0002 L0001: CALL_VS L00 -> -(SP) JE (SP)+,#00 [TRUE] L0002 RTRUE L0002: STORE L01,#00 LOADW G49,#01 -> L00 JE L00,#00 [TRUE] L0003 STORE L01,G4d L0003: JE L01,#00 [FALSE] L0004 RFALSE L0004: GET_PROP L01,#06 -> L00 JE L00,#ffff [FALSE] L0005 RFALSE L0005: CALL_VS L00 -> L00 RET L00 Routine R0028, 2 locals STORE L01,G00 JE L01,#00 [FALSE] L0001 RFALSE L0001: GET_PROP L01,#06 -> L00 JE L00,#ffff [FALSE] L0002 RFALSE L0002: CALL_VS L00 -> L00 RET L00 Routine R0029, 1 local JE G2a,#01 [FALSE] L0001 SET_TEXT_STYLE BOLDFACE L0001: PRINT_PADDR S001 JE G2a,#01 [FALSE] L0002 SET_TEXT_STYLE ROMAN L0002: PRINT " An Interactive Diversion Copyright (c) 1993/4 by Graham Nelson. New players should type "help". " PRINT "Release " LOADW #00,#01 -> -(SP) AND (SP)+,#03ff -> -(SP) PRINT_NUM (SP)+ PRINT " for Acorn User / Serial number " STORE L00,#12 DEC L00 L0003: JL L00,#17 [FALSE] L0004 INC L00 LOADB #00,L00 -> -(SP) PRINT_CHAR (SP)+ JUMP L0003 L0004: PRINT " Compiled by Inform v" PRINT "1258" PRINT " / Interpreter " LOADB #00,#1e -> -(SP) PRINT_NUM (SP)+ PRINT " Version " LOADB #00,#1f -> -(SP) PRINT_CHAR (SP)+ NEW_LINE RTRUE Routine R0030, 0 locals CALL_VN R0150 (#01,#ff) RTRUE Routine R0031, 3 locals INC G02 JE G06,#01 [FALSE] L0001 CALL_2N R0098 (#00) L0001: JE G06,#0d [FALSE] L0009 GET_PROP "The Spirit World",#15 -> -(SP) JE (SP)+,#04 [FALSE] L0009 INC G31 JE G31,#02 [FALSE] L0002 PRINT " The entrance to the tomb rumbles. " L0002: JE G31,#03 [FALSE] L0003 PRINT " The noise grows, and dust falls from cracks in the masonry. " L0003: JE G31,#04 [FALSE] L0004 PRINT " The entrance bursts open in a shower of plaster! Light streams in, searing your eyes. There is a great commotion. Two Napoleonic French officers stride down the stairs, lanterns in hand, looking admiringly around the court. They do not seem to see you. " INSERT_OBJ "Napoleonic officers","The Spirit World" L0004: JE G31,#05 [FALSE] L0005 PRINT " The officers are fascinated by the way the tomb seems almost untouched, and yet the couch looks slept in. " L0005: JE G31,#06 [FALSE] L0006 PRINT " The officers look down the passage, finding it to be sealed. " L0006: JE G31,#07 [FALSE] L0007 PRINT " The officers sit next to the sphinxes, stroking their moustaches in comic perplexity. As they do so, one bangs his head on a stone nose. " L0007: JE G31,#08 [FALSE] L0008 PRINT " The other officer is greatly amused by this slapstick. (You really are beginning to see just how boring the living can be.) " L0008: JE G31,#09 [FALSE] L0009 PRINT " The first officer tweaks the nose of the sphinx in affection. Suddenly there is a great rumbling of stone from the passage below, and they rush down to investigate! " REMOVE_OBJ "Napoleonic officers" SET_ATTR "sphinxes",#19 INSERT_OBJ "stone nose of a sphinx","The Height of Fashion" L0009: JE G06,#0a [FALSE] L0010 INC G30 JE G30,#02 [FALSE] L0010 INSERT_OBJ "flurries of green luminescence","Melancholy Dream" PUT_PROP "Melancholy Dream",#0b,#0129 PUT_PROP "Melancholy Dream",#12,#0129 PRINT " A ghostly apparition of a venerable man hazes into view. He raises his mahogany staff and strikes it (silently) on the ground, then points it at the walls, and suddenly a flurry of green luminescence chases around you! He fades away again, mumbling something incoherent. " L0010: JE G06,#0b [FALSE] L0036 GET_PROP "Causeway",#15 -> -(SP) ADD (SP)+,#01 -> -(SP) PUT_PROP "Causeway",#15,(SP)+ GET_PROP "Causeway",#15 -> -(SP) JE (SP)+,#0c [FALSE] L0011 PUT_PROP "Causeway",#15,#00 L0011: JE G00,#018a,#01ab,#01be [FALSE] L0022 GET_PROP "Causeway",#15 -> L00 JE G00,#01ab [FALSE] L0012 DEC L00 L0012: JE G00,#01be [FALSE] L0013 SUB L00,#02 -> L00 L0013: JL L00,#04 [FALSE] L0014 PRINT " A lively, very noisy procession pushes through here, and some spectacular floats are approaching fast. " L0014: JE L00,#04 [FALSE] L0015 PRINT " The Morning Star leads an enormous procession for the festival of Dionysus, which throngs with officials dressed as satyrs, actors and townswomen. " L0015: JE L00,#05 [FALSE] L0016 PRINT " Behind the front are huge statues on mechanical floats, flanked by giant overflowing pitchers of wine. And the animals are coming! " L0016: JE L00,#06 [FALSE] L0017 PRINT " Yes, 2000 oxen dressed in gold, as many dogs, and the giraffes, the antelopes, the gnus, parrots, elephants, wildebeest... ostriches pulling carts, a white bear... " L0017: JE L00,#07 [FALSE] L0018 PRINT " Next the dancers, in a great masque of the life of Alexander the Great, his travels, conquests, founding of the City, and so on. The delicate matter of how exactly his general Ptolemy took over is omitted, since Ptolemy's son Ptolemy II is now very much in charge. " L0018: JE L00,#08 [FALSE] L0019 PRINT " The centrepiece of the procession: an enormous gold ribboned phallus, two hundred feet long and with a giant star on the end. Inexplicably, you are the only person present who feels this to be in doubtful taste. " L0019: JE L00,#09 [FALSE] L0020 PRINT " A procession of women follows next, each in the national dress of an allied city state, from all over the Hellenistic world, North Africa to Sicily to Asia. " L0020: JE L00,#0a [FALSE] L0021 PRINT " The procession ends as it began, with a great Evening Star, before falling into a shambolic crowd of revellers, drunken and maudlin. " L0021: JG L00,#0a [FALSE] L0022 PRINT " The procession looks like running on forever. " L0022: JE G00,#0182 [FALSE] L0024 RANDOM #05 -> -(SP) JE (SP)+,#01 [FALSE] L0024 TEST_ATTR "smooth round stone",#19 [FALSE] L0023 PRINT " A wave splashes up under the grating, throwing up the strange stone, which bounces back off the grating and washes away down the passage out of sight. Well, you didn't think it was going to be that easy, did you? " CALL_2N R0040 (#25) INSERT_OBJ "smooth round stone","Warehouses and Port" INSERT_OBJ "rusty iron key","Warehouses and Port" CLEAR_ATTR "smooth round stone",#19 CLEAR_ATTR "smooth round stone",#06 CLEAR_ATTR "smooth round stone",#01 SET_ATTR "rusty iron key",#19 PUT_PROP "rusty iron key",#04,S755 PUT_PROP "smooth round stone",#04,S756 JUMP L0024 L0023: PRINT " Down below, a wave splashes against the sea front, briefly washing up under the grating. " L0024: JE G00,#0185 [FALSE] L0026 RANDOM #05 -> -(SP) JE (SP)+,#01 [FALSE] L0026 GET_PARENT G03 -> -(SP) JE (SP)+,#0186 [FALSE] L0025 PRINT " A wave suddenly rocks the skiff. " JUMP L0026 L0025: PRINT " A wave suddenly splashes against your feet, up to the knees, and washes up the steps toward the grating. " L0026: JE G00,#01c5 [FALSE] L0035 TEST_ATTR "gambling sailor",#19 [FALSE] L0034 RANDOM #05 -> L00 JL L00,#03 [FALSE] L0032 PRINT " The sailor grabs the die and throws a "" RANDOM #06 -> L00 TEST_ATTR "gambling sailor",#22 [TRUE] L0027 TEST_ATTR "inscribed die",#22 [FALSE] L0028 L0027: STORE L00,#06 L0028: CALL_2N R0136 (L00) PRINT "", " GET_PROP "inscribed die",#15 -> -(SP) JG L00,(SP)+ [FALSE] L0029 PRINT "and grins. " L0029: GET_PROP "inscribed die",#15 -> -(SP) JL L00,(SP)+ [FALSE] L0030 PRINT "and sighs. " L0030: GET_PROP "inscribed die",#15 -> -(SP) JE L00,(SP)+ [FALSE] L0031 PRINT "and shrugs. " L0031: PUT_PROP "inscribed die",#15,L00 CLEAR_ATTR "gambling sailor",#19 JUMP L0033 L0032: PRINT " The sailor stares at the die thoughtfully. " L0033: JUMP L0035 L0034: PRINT " The sailor hums a sea shanty. " L0035: JE G4c,#13 [TRUE] L0036 GET_PARENT "Austin" -> -(SP) JE (SP)+,G00 [FALSE] L0036 CALL_1N R0097 L0036: JE G00,#0188 [FALSE] L0039 TEST_ATTR "Harbour Mouth",#19 [FALSE] L0037 PRINT " The sails billow, then slacken... " INSERT_OBJ "skiff","Drifting" STORE G00,#0189 CALL_2N R0198 (#01) JUMP L0038 L0037: SET_ATTR "Harbour Mouth",#19 L0038: JUMP L0040 L0039: JE G00,#0189 [FALSE] L0040 PRINT " Light brightens into day. The skiff drifts, drifts upon... " INSERT_OBJ "skiff","Garden Stream" STORE G00,#8d CALL_2N R0198 (#01) L0040: JE G00,#0177 [FALSE] L0042 TEST_ATTR "adamantine skull",#01 [FALSE] L0041 RANDOM #03 -> -(SP) JE (SP)+,#01 [FALSE] L0041 JE G1d,#00 [FALSE] L0041 CLEAR_ATTR "adamantine skull",#01 PRINT " The skull wobbles and falls off the knight again. " L0041: TEST_ATTR "adamantine hand",#01 [FALSE] L0042 RANDOM #03 -> -(SP) JE (SP)+,#01 [FALSE] L0042 JE G1d,#00 [FALSE] L0042 CLEAR_ATTR "adamantine hand",#01 PRINT " The hand wavers and falls off the knight again. " L0042: JE G00,#01d0 [FALSE] L0045 GET_PROP "Buried Alive",#15 -> -(SP) SUB (SP)+,#01 -> L00 PUT_PROP "Buried Alive",#15,L00 JE L00,#00 [FALSE] L0043 STORE G05,#01 PRINT_RET " The air runs out, and you expire. Few corpses as so considerate as to bury themselves in advance - hopefully this thought is some consolation." L0043: JE L00,#03 [FALSE] L0044 PRINT " You are beginning to choke and pant. " L0044: JE L00,#01 [FALSE] L0045 PRINT " The air is desperately thin now, and you struggle hopelessly. " L0045: JE G00,#01ad [FALSE] L0047 GET_PROP "The Birdcage of the Muses",#15 -> L00 JE L00,#03 [FALSE] L0046 PRINT " A messenger-boy in a plain white tunic slips into the library and places a couple of tubes in the pigeonhole. So resentful is he of missing the party outside that he fails to notice you at all, and runs back out again at once. " INSERT_OBJ "tube with an alpha on","pigeonhole" INSERT_OBJ "tube with a kappa on","pigeonhole" L0046: JL L00,#04 [FALSE] L0047 ADD L00,#01 -> -(SP) PUT_PROP "The Birdcage of the Muses",#15,(SP)+ L0047: TEST_ATTR "heavy iron mascot",#06 [FALSE] L0057 STORE L00,#8a GET_PARENT L00 -> L00 JE L00,G03 [FALSE] L0057 CALL_2S R0033 (#8a) -> -(SP) JE #00,(SP)+ [TRUE] L0052 STORE G05,#01 PRINT " In an astonishing freak accident, " RANDOM #05 -> L00 JE L00,#01 [FALSE] L0048 PRINT_RET "a meteorite hurtles through the Earth's atmosphere and then straight through your head. Anyone would think you had a curse on you (anyone, that is, still able to think)." L0048: JE L00,#02 [FALSE] L0049 PRINT_RET "an earthquake demolishes everything in the neighbourhood, swallowing you up into a chasm in the ground. Anyone would think you had a curse on you." L0049: JE L00,#03 [FALSE] L0050 PRINT_RET "a long-dormant volcano erupts instantaneously below your feet. Anyone would think you had a curse on you (anyone, that is, still standing)." L0050: JE L00,#04 [FALSE] L0051 PRINT_RET "lightning abruptly strikes into your body, making your hair stand on end. (Oh, and vapourising you utterly, of course.)" L0051: PRINT_RET "four hundred Spartan soldiers are transported by some quantum-mechanical fluke from the Battle of Thermopylae into your immediate vicinity. They are quite keen for someone to explain things to them, but unfortunately most of the spears they were throwing came with them; one of which struck straight through the mascot into your body." L0052: CALL_2S R0036 (#8a) -> L00 JE L00,#0a [FALSE] L0053 PRINT " You feel very nervous indeed, for some reason. " L0053: JE L00,#07 [FALSE] L0055 GET_PARENT G03 -> -(SP) JE (SP)+,#2b [TRUE] L0054 PRINT " You stub your toe painfully, and trip over. " JUMP L0055 L0054: PRINT " You feel bed-sores coming on. " L0055: JE L00,#05 [FALSE] L0056 PRINT " You scratch yourself, unable to get rid of an itching sensation. " L0056: JE L00,#02 [FALSE] L0057 PRINT " Something feels very wrong indeed. Your hand begins to burn. " L0057: STORE L00,#25 L0058: JE L00,#00 [TRUE] L0059 STORE L01,L00 GET_PARENT L00 -> L00 JUMP L0058 L0059: JE L01,G00 [FALSE] L0061 TEST_ATTR "electric torch",#00 [FALSE] L0061 STORE L00,#25 GET_CHILD L00 -> -(SP) [TRUE] L0060 L0060: CALL_2N R0037 ((SP)+) L0061: TEST_ATTR "Sir Joshua Meldrewe",#01 [TRUE] L0062 JE G00,#53 [FALSE] L0062 CALL_1N R0038 L0062: CALL_2S R0033 (#61) -> -(SP) JE #00,(SP)+ [TRUE] L0063 PRINT " Sorry. Thinking about it again, the score only gets in a muddle this way, so the bonus points had better go after all. " STORE G17,#00 STORE G41,#01 SUB G01,#05 -> G01 L0063: CALL_2S R0033 (#af) -> -(SP) JE #00,(SP)+ [TRUE] L0064 JE G06,#06 [FALSE] L0064 PRINT " There is a great rumbling sound and then a thunderous avalanche of stone cascades down the hillside into the valley. The Folly has collapsed! Capability Meldrew and his workmen come running to investigate. In the ensuing confusion, they come across you and, of course, blame you for their incompetent masonry. You are hauled up before the county assizes... " STORE G05,#05 L0064: JE G06,#06 [TRUE] L0065 JL G0c,#64 [FALSE] L0065 MUL #09,G0d -> -(SP) ADD G0c,(SP)+ -> L00 STOREB G09,L00,#30 STORE G0c,#64 L0065: JE G00,#a8 [FALSE] L0075 GET_PROP "Inside the Orb",#15 -> L00 INC L00 PUT_PROP "Inside the Orb",#15,L00 JE L00,#01 [FALSE] L0066 RTRUE L0066: JE L00,#02 [FALSE] L0067 PRINT " The sphere rotates, giving you a fresh view of the images: stylised Kings and Queens? " L0067: JE L00,#04 [FALSE] L0068 PRINT " The sphere rotates, giving you another look: humble tokens of warriors. " L0068: JE L00,#06 [FALSE] L0069 PRINT " The sphere rotates, giving you another look: carved horse-heads and Bishops' mitres. " L0069: JE L00,#08 [FALSE] L0070 PRINT " (The sphere rotates.) It's a chess game! Now you understand. But you still can't puzzle out the actual solution. " L0070: JE L00,#0a [FALSE] L0071 PRINT " (The sphere rotates.) You have some impression that White is trying to make an attack, having plenty of spare pieces. " CALL_2N R0041 (#1a) L0071: JE L00,#0c [FALSE] L0072 PRINT " (The sphere rotates.) Seeing the board from Black's point of view, the defence looks solid. " L0072: JE L00,#0e [FALSE] L0073 PRINT " (The sphere rotates.) Back to White's side. You definitely need to smash through somehow, all that cautious exchanging of pieces hasn't worked. If you want White to win, that is. " L0073: MOD L00,#04 -> L01 JE L01,#00 [FALSE] L0074 CLEAR_ATTR "Inside the Orb",#19 JG L00,#0c [FALSE] L0074 PRINT " (The sphere rotates.) Black still looks safe. " L0074: JE L01,#02 [FALSE] L0075 SET_ATTR "Inside the Orb",#19 JG L00,#0e [FALSE] L0075 PRINT " (The sphere rotates.) White must break out somehow. " L0075: JE G00,#011f [FALSE] L0079 RANDOM #0a -> L00 JE L00,#01 [FALSE] L0076 PRINT " There is a horrid grinding noise from far away. " L0076: JE L00,#02 [FALSE] L0077 PRINT " A flash of light sears your eyes, as the sulphurous flames grumble. " L0077: JE L00,#03 [FALSE] L0078 PRINT " You can almost, but not quite, make out the noise of shouting. " L0078: JE L00,#04 [FALSE] L0079 PRINT " Thunder and lightning can be heard from the fiery depths. " L0079: JE G00,#0121 [FALSE] L0083 RANDOM #0a -> L00 JE L00,#01 [FALSE] L0080 PRINT " Angels with harps float by, gossiping about you in a kindly way. " L0080: JE L00,#02 [FALSE] L0081 PRINT " Babies float by, just counting their toes. " L0081: JE L00,#03 [FALSE] L0082 PRINT " Burnished-gold sunlight strokes the tops of the clouds here. " L0082: JE L00,#04 [FALSE] L0083 PRINT " The choir invisible almost, for a moment, becomes audible. " L0083: JE G00,#c9,#db [FALSE] L0087 RANDOM #0a -> L00 JE L00,#01 [FALSE] L0084 PRINT " A clock keeps the hours, with a dead sound on the final stroke of nine. " L0084: JE L00,#02 [FALSE] L0085 PRINT " There is a brown fog about, like a winter dawn's. " L0085: JE L00,#03 [FALSE] L0086 PRINT " You can almost make out the pleasant whining of a mandoline from a faraway bar. " L0086: JE L00,#04 [FALSE] L0087 PRINT " Drifting through the streets from some distant bar comes the sound of one of Scott Joplin's newfangled piano pieces, accompanying song settings from "Romeo and Juliet". " L0087: JE G00,#f9 [FALSE] L0091 RANDOM #0d -> L00 JE L00,#01 [FALSE] L0088 PRINT " The diners grumble and play backgammon viciously. " L0088: JE L00,#02 [FALSE] L0089 PRINT " The bartender gives you a hard stare. " L0089: JE L00,#03 [FALSE] L0090 PRINT " A fight breaks out, over an obscure question to do with somebody's second cousin. " L0090: JE L00,#04 [FALSE] L0091 PRINT " The gentle sound of bazouki music strikes up in the background, and gradually rises to an intolerable pitch. After a moment comes a dull thud and a strangled noise, then blessed quiet. " L0091: GET_PARENT "antiquated wireless" -> -(SP) JE G00,(SP)+ [FALSE] L0093 TEST_ATTR "antiquated wireless",#18 [TRUE] L0092 CLEAR_ATTR "antiquated wireless",#19 L0092: TEST_ATTR "antiquated wireless",#19 [FALSE] L0093 PRINT " The radio plays a " CALL_1N R0032 L0093: CALL_2S R0033 (#82) -> -(SP) JE #00,(SP)+ [TRUE] L0095 TEST_ATTR "antiquated wireless",#18 [FALSE] L0095 SET_ATTR "antiquated wireless",#19 STORE L00,#82 GET_PARENT L00 -> L00 JE G00,L00 [FALSE] L0094 PRINT " The radio valves glow, and execrable so-called easy listening music fills the air with a sort of bland aural candy-floss. " L0094: JE G00,#83 [FALSE] L0095 JE L00,#7e [FALSE] L0095 PRINT " Execrable music begins to sound from the conservatory, and Aunt Jemima hums vacantly. " L0095: JE G06,#07 [FALSE] L0130 CALL_2S R0033 (#0113) -> -(SP) JE #00,(SP)+ [TRUE] L0096 GET_PARENT G03 -> L00 JE L00,#0112 [FALSE] L0096 SET_ATTR "kitchen well",#19 CALL_2N R0041 (#09) PRINT " You hear a splash from far down in the depths of the well. " L0096: JE G1b,#01 [FALSE] L0097 PRINT " From up on the hill you hear the blowing of a horn. " L0097: JE G1b,#02 [FALSE] L0098 PRINT " Horses are approaching the villa, coming down the hill. " L0098: JE G1b,#03 [FALSE] L0099 PRINT " The sound of horses draws nearer. " L0099: JE G1b,#04 [FALSE] L0101 JE G00,#0116 [FALSE] L0100 PRINT " Horsemen suddenly gallop into the courtyard and you are soon ringed by guards! " CALL_1N R0438 JUMP L0101 L0100: PRINT " There is definitely activity outside the villa. " L0101: JL G1b,#05 [TRUE] L0103 JE G00,#0116 [FALSE] L0102 PRINT " You walk straight into the guards. " CALL_1N R0438 L0102: JE G00,#0108 [FALSE] L0103 PRINT " You walk straight into the guards at the back door. " CALL_1N R0438 L0103: JE G1b,#07 [FALSE] L0109 PRINT " There is sudden activity as the guards make a thorough search of the villa, just to be on the safe side. " JE G00,#0115 [FALSE] L0104 PRINT "Luckily, they don't even think of looking down in here. " JUMP L0109 L0104: JE G00,#0114 [FALSE] L0105 PRINT "Unfortunately, they do think of looking into the kitchen well, and drag you out onto the triclinium floor. " L0105: JE G00,#ff,#0102,#0104 [FALSE] L0106 PRINT "With the kind of zeal which really marked the early Dark Ages, they look even here. " JUMP L0108 L0106: JE G00,#0114 [TRUE] L0107 L0107: PRINT "The virtue of doing so is demonstrated when they find you without difficulty. " L0108: CALL_1N R0438 L0109: JG G1b,#07 [FALSE] L0110 JE G00,#0112 [FALSE] L0110 PRINT " An industrious-looking slave (who cooks for the horsemen) is rather surprised to see you, but with creditable presence of mind he summons the guard at once. " CALL_1N R0438 L0110: JE G00,#0115 [FALSE] L0125 JE G1b,#08 [FALSE] L0111 PRINT " You hear men walking across the mosaic just above your head. " L0111: JE G1b,#09 [FALSE] L0113 PRINT " A voice, which can just be heard through the vent, says " JE G1c,#00 [FALSE] L0112 PRINT "something in Anglo-Saxon or Celtic (hard to say which). " JUMP L0125 L0112: PRINT ""Welcome, great masters. We are convened in secret conclave to decide the fate of Britain. Lament, for the old ways are passing! There will be a dark age, a collapse into many monarchies, and any man who can hold a town will call himself King and heir to Vortigern." " L0113: JE G1b,#0a [FALSE] L0115 PRINT " A younger, more impatient voice, says " JE G1c,#00 [FALSE] L0114 PRINT "something else. " JUMP L0125 L0114: PRINT ""This is an opportunity! We must be the power behind the thrones, we will in secret unite and be the true force of the land..." " L0115: JE G1b,#0b [FALSE] L0117 PRINT " There is cynical laughter for a moment, and a third voice interjects " JE G1c,#00 [FALSE] L0116 PRINT "something. " JUMP L0125 L0116: PRINT ""And who will lead this, this unity? We take all sides and none, you know that. There are potent druids in the tents of each general down there in the rabble. They'd kill each other without hesitation on the battlefield." " L0117: JE G1b,#0c [FALSE] L0119 PRINT " The first voice speaks once more. " JE G1c,#00 [FALSE] L0118 NEW_LINE JUMP L0125 L0118: PRINT ""Far worse is to come. The jumped-up kings and their new men will no longer believe in the ancient powers. Already I can feel the druidic magic weakening away, and we are perilously close to the nexus now. In the valleys below, armies wait to fight the decisive battle. Whichever side wins, they will no longer need us. In a matter of hours, the power will be broken forever." " L0119: JE G1b,#0d [FALSE] L0121 PRINT " After a sombre silence, a much older voice says " JE G1c,#00 [FALSE] L0120 PRINT "something wise. It really is a pity you can't understand them. " JUMP L0125 L0120: PRINT ""You did right to call us together. There is a path prepared for us, but the sacrifice will be terrible. We must concentrate all the remaining druidical energy into this sacred hill, that it may last through all time, and we must ensure that druids live on this site forever and keep the faith." " L0121: JE G1b,#0e [FALSE] L0123 PRINT " The younger voice speaks again. " JE G1c,#00 [FALSE] L0122 NEW_LINE JUMP L0125 L0122: PRINT ""For now, yes, for a century or two, yes, but what then? They will forget the old ways, they will no longer truly be druids." " L0123: JE G1b,#0f [FALSE] L0125 PRINT " The older voice replies triumphantly. " JE G1c,#00 [FALSE] L0124 NEW_LINE JUMP L0125 L0124: PRINT ""This is what must be done. They will forget, so we must give them a substitute. We shall accurse them to always seek after this magical stone, which it will be all but impossible for them to find. It will take the form of whatever they most desire. In six hundred years, by my prophecy, religious wars in the East will capture men's hearts, and then they will think it is the Holy Grail, the cup which held the blood of Christ. A thousand years later they will think it is -" But at this moment the voices move away. " L0125: JE G1b,#00 [TRUE] L0126 INC G1b L0126: CALL_2S R0033 (#0118) -> -(SP) JE #00,(SP)+ [TRUE] L0127 PRINT " Without warning a Saxon spy (or, as the guards would no doubt put it, another Saxon spy) is thrown bodily into the tent, careering into the central pole and slumping unconscious on the ground as a result. For a moment the whole tent rocks with the force - the pole was nearly broken. " CLEAR_ATTR "tent pole",#0f STORE L00,#0119 REMOVE_OBJ L00 INSERT_OBJ L00,"Rough Tent" CALL_VN R0035 (#0119,#05) L0127: JE G00,#0117 [FALSE] L0129 CALL_2S R0033 (#0119) -> -(SP) JE #00,(SP)+ [TRUE] L0129 STORE L00,#0119 GET_PARENT L00 -> L00 JE L00,#0117 [FALSE] L0128 PRINT " Men arrive to drag the Saxon spy away to some unguessable grisly fate. They grimace at you as if to say, "You're next." " STORE L01,#0119 REMOVE_OBJ L01 CALL_VN R0035 (#0119,#05) L0128: JE L00,#00 [FALSE] L0129 STORE G05,#01 PRINT " The men arrive once more and this time they securely grab you by the arms. If you were an anthropologist, you'd be fascinated by the ritual in which you are bound up, then garotted with a cord and laid into a peat swamp. Instead, your last thought is to remember the celebrated body they found when they drained the marshes in 1974 to build a motorway service station. " L0129: CALL_2S R0033 (#011a) -> -(SP) JE #00,(SP)+ [TRUE] L0130 PRINT " It had to happen sooner or later. One of the druids looks round, sees you and raises an instant alarm. It is absolutely hopeless and you are dragged away screaming to your fate. " STORE G05,#01 L0130: JE G00,#83 [FALSE] L0131 CALL_2S R0033 (#85) -> -(SP) JE #00,(SP)+ [TRUE] L0131 PRINT " "There we are! All done now." Jemima hangs a daisy chain around your neck, then frowns and adjusts your hair in an exceedingly annoying way. " CALL_2N R0040 (#09) STORE L00,#86 SET_ATTR L00,#06 STORE G46,#01 INSERT_OBJ L00,G03 SET_ATTR "daisy chain",#02 L0131: JE G05,#00 [TRUE] L0132 JUMP L0162 L0132: JE G11,#01 [FALSE] L0147 CALL_2S R0034 (#e1) -> -(SP) JE #00,(SP)+ [TRUE] L0146 STORE G11,#00 STORE L00,#e1 GET_PARENT L00 -> L01 L0133: GET_PARENT L00 -> -(SP) JE #00,(SP)+ [TRUE] L0134 GET_PARENT L00 -> L00 JUMP L0133 L0134: JE G00,L00 [FALSE] L0146 PRINT " You hear a sharp click! " JE L01,#3b [FALSE] L0146 NEW_LINE GET_CHILD L01 -> L02 [TRUE] L0135 L0135: JE L02,#e1 [FALSE] L0136 GET_SIBLING L02 -> L02 [TRUE] L0136 L0136: JE L02,#00 [FALSE] L0137 PRINT "But the flash does nothing. " JUMP L0162 L0137: JE L02,#63 [TRUE] L0138 PRINT "And the flash gives a pathetically small flash of light. " JUMP L0162 L0138: PRINT "The flash suddenly gives an enormous magnesium-flare flash, almost blinding in its intensity. Your eyes take a little while to adjust. " JE G00,#df [FALSE] L0139 PRINT "Consequently you can only hear as the cabaret audience gives you a round of applause for what they think is a magic trick." L0139: STORE L02,#3b GET_PARENT L02 -> L02 JE L02,#fd [FALSE] L0144 TEST_ATTR "photographer's flash",#19 [TRUE] L0144 SET_ATTR "photographer's flash",#19 PRINT "Consequently you can only hear as the smudge on the horizon rises from the waves, becomes an enormous Kraken sea monster and lunges for the stone tower. (Considering this is supposed to be a Greek myth it feels surprisingly like a Japanese 1960s creature film.) The Kraken swipes at you, overreaches itself and falls over forward, impaling itself extremely messily on the pharos. Your eyes just about recover by the time the rest of your body is crushed by its weight. Up on Mount Olympus, Zeus is still cross. "Take me to your Leda", you wittily demand, but this does not seem to improve matters. Poseidon also looks rather fed up, but luckily a sizeable faction of goddesses takes your side and arranges to have you resurrected... " CALL_2N R0040 (#0b) STORE G00,#8f REMOVE_OBJ G03 REMOVE_OBJ "photographer's flash" CALL_VN R0150 (#08,#78) CALL_VN R0150 (#09,#b9) CLEAR_ATTR "Lighthouse",#11 GET_CHILD G03 -> L00 [TRUE] L0140 L0140: JE L00,#00 [TRUE] L0143 GET_SIBLING L00 -> L01 [TRUE] L0141 L0141: JE L00,#86 [TRUE] L0142 INSERT_OBJ L00,"Lighthouse" CLEAR_ATTR L00,#02 L0142: STORE L00,L01 JUMP L0140 L0143: INSERT_OBJ G03,G00 STORE G06,#05 CALL_2N R0198 (#01) JUMP L0162 L0144: NEW_LINE GET_PARENT "Austin" -> -(SP) JE (SP)+,G00 [FALSE] L0145 PRINT " Austin jumps with fear, then slouches back again into his "cool" pose. " L0145: GET_PARENT "irate squirrel friend" -> -(SP) JE (SP)+,G00 [FALSE] L0146 PRINT " The squirrel covers his eyes with his paws for a moment. " L0146: JUMP L0162 L0147: JE G00,#e6 [FALSE] L0153 TEST_ATTR "Cups and Glasses",#19 [TRUE] L0148 STORE L00,#e6 PUT_PROP L00,#15,G02 SET_ATTR "Cups and Glasses",#19 L0148: STORE L00,#e6 GET_PROP L00,#15 -> -(SP) SUB G02,(SP)+ -> L00 JE L00,#02 [FALSE] L0149 PRINT " There is a scuffling noise as some people gather up on the pavement outside the skylight. " L0149: JE L00,#03 [FALSE] L0150 PRINT " The men begin to talk like conspirators, but half in chants. You catch occasional sounds, but can make little sense of them. " L0150: JE L00,#04 [FALSE] L0151 PRINT " Alarmingly, you catch the odd word "incendiary" and are almost sure you can make out someone say "accursed Meldrew" (in the old-fashioned way, you know, so that "accursed" rhymes with "dead"). Paranoia, bound to be. There surely can't really be a conspiracy of druid-worshippers out to get you? " L0151: JE L00,#05 [FALSE] L0152 PRINT " "The prophecy must be fulfilled!" one warns, in an unearthly voice which suddenly carries. The others hush him. " L0152: JE L00,#06 [FALSE] L0153 PRINT " The men walk away, perhaps a few feet, perhaps a mile. " L0153: JE G00,#df [FALSE] L0162 TEST_ATTR "complicated-looking bomb",#1a [TRUE] L0155 TEST_ATTR "complicated-looking bomb",#01 [TRUE] L0154 NEW_LINE CALL_1N R0420 L0154: TEST_ATTR "complicated-looking bomb",#01 [FALSE] L0155 PRINT " The table rattles again. " L0155: CALL_2S R0034 (#e1) -> -(SP) JE #00,(SP)+ [TRUE] L0162 SET_ATTR "complicated-looking bomb",#1a TEST_ATTR "complicated-looking bomb",#19 [FALSE] L0161 LOADB G18,#00 -> -(SP) JE #e4,(SP)+ [TRUE] L0156 JUMP L0160 L0156: LOADB G18,#01 -> -(SP) JE #e2,(SP)+ [TRUE] L0157 JUMP L0160 L0157: LOADB G18,#02 -> -(SP) JE #e5,(SP)+ [TRUE] L0158 JUMP L0160 L0158: LOADB G18,#03 -> -(SP) JE #e3,(SP)+ [TRUE] L0159 JUMP L0160 L0159: PRINT " Click! The timer runs out, but the bomb was disarmed. You pocket the timer and hide the rest of the evidence under the table. " STORE L00,#e1 REMOVE_OBJ L00 INSERT_OBJ L00,G03 CLEAR_ATTR "timer-detonator",#0f STORE L00,#e0 REMOVE_OBJ L00 JUMP L0162 L0160: PRINT "Click! Perhaps there's more to bomb disposal than you thought. " L0161: PRINT " In a sudden cataclysm, there is an enormous explosion from your table, blowing out all the arrowslit windows, making a thunderous noise, starting a minor fire, and of course having one other consequence: " STORE G05,#01 L0162: CALL_2S R0033 (#c5) -> -(SP) JE #00,(SP)+ [TRUE] L0165 JE G06,#03 [FALSE] L0163 JE G00,#c5 [TRUE] L0163 PRINT " Finally reacting to the alarm you set off, Doktor Stein appears and steps toward you, clapping his hands sharply. And dozens of robed figures leap out of the darkness - but these are no security guards. Their faces are painted hideously and they betray no emotion as they pinion you tight... "So, Meldrew. It is all as it was prophesied," says Stein in a perfectly conversational tone as he forces your mouth open and makes you swallow a violet pill. "One of your apothecary ancestors made this drug! Appropriate, no?" " PRINT "You feel queasy, but this is perhaps the least of your problems as they drag you off... " STORE G00,#c5 REMOVE_OBJ G03 INSERT_OBJ G03,"Coven Cell" SET_ATTR G03,#19 CALL_VN R0035 (#c5,#05) CALL_1N R0198 JUMP L0165 L0163: JE G00,#c5 [FALSE] L0165 PRINT " A key turns in the door and Doktor Stein bursts in. He stops to pat the goat affectionately. "Cheer up, Dobbin. As soon as I've finished this brutal human sacrifice I'll take you for your walk." He feeds Dobbin some sugar-cake. "They make such marvellous cheese," he explains confidentially. " STORE G05,#01 TEST_ATTR G03,#19 [FALSE] L0164 PRINT_RET " In a trance, you go willingly to your (somewhat messy) sacrifice..." L0164: PRINT_RET " Kicking and screaming, you are are dragged off to a grisly sacrifice..." L0165: STORE L00,G04 GET_PARENT G03 -> -(SP) CALL_2S R0039 ((SP)+) -> G04 JE L00,#00 [FALSE] L0168 JE G04,#01 [FALSE] L0168 NEW_LINE JE G22,#00 [TRUE] L0166 GET_PARENT G22 -> G00 INSERT_OBJ G03,G22 JUMP L0167 L0166: GET_PARENT G03 -> G00 L0167: CALL_2N R0198 (#01) L0168: JE L00,#01 [FALSE] L0170 JE G04,#00 [FALSE] L0170 NEW_LINE PRINT "It is now pitch dark in here! " GET_PARENT G03 -> G22 JE G22,G00 [FALSE] L0169 STORE G22,#00 L0169: STORE G00,#0c L0170: RTRUE Routine R0032, 1 local RANDOM #0c -> L00 JE L00,#01 [FALSE] L0001 PRINT "synthesized" L0001: JE L00,#02 [FALSE] L0002 PRINT "light orchestra" L0002: JE L00,#03 [FALSE] L0003 PRINT "choral" L0003: JE L00,#04 [FALSE] L0004 PRINT "snare drum and strings" L0004: JE L00,#05 [FALSE] L0005 PRINT "country-and-western" L0005: JE L00,#06 [FALSE] L0006 PRINT "one-finger piano" L0006: JE L00,#07 [FALSE] L0007 PRINT "Welsh coal-miners' Eisteddfod choir" L0007: JE L00,#08 [FALSE] L0008 PRINT "Hammond organ" L0008: JE L00,#09 [FALSE] L0009 PRINT "easy-listening" L0009: JE L00,#0a [FALSE] L0010 PRINT ""lite-n-mellow"" L0010: JE L00,#0b [FALSE] L0011 PRINT "jazz trio" L0011: JE L00,#0c [FALSE] L0012 PRINT "Big Band" L0012: RANDOM #05 -> L00 JE L00,#01 [FALSE] L0013 PRINT " version of " L0013: JE L00,#02 [FALSE] L0014 PRINT " rendition of " L0014: JE L00,#03 [FALSE] L0015 PRINT " travesty of " L0015: JE L00,#04 [FALSE] L0016 PRINT " arrangement of " L0016: JE L00,#05 [FALSE] L0017 PRINT " transcription of " L0017: RANDOM #50 -> L00 JE L00,#01 [FALSE] L0018 PRINT "Queen's "I Want To Break Free"." L0018: JE L00,#02 [FALSE] L0019 PRINT "Bach's "Air on a G-string"." L0019: JE L00,#03 [FALSE] L0020 PRINT "Mozart's "Musical Joke"." L0020: JE L00,#04 [FALSE] L0021 PRINT "Stockhausen's "Piano Pieces I-IX"." L0021: JE L00,#05 [FALSE] L0022 PRINT "Beethoven's "Moonlight Sonata"." L0022: JE L00,#06 [FALSE] L0023 PRINT "Summer from Vivaldi's "Four Seasons"." L0023: JE L00,#07 [FALSE] L0024 PRINT "the especially slow movement of Gorecki's "Symphony no. 3"." L0024: JE L00,#08 [FALSE] L0025 PRINT "Spandau Ballet's "Gold"." L0025: JE L00,#09 [FALSE] L0026 PRINT "Duran Duran's "Is There Something I Should Know?"." L0026: JE L00,#0a [FALSE] L0027 PRINT "Derek and the Dominos' "Layla"." L0027: JE L00,#0b [FALSE] L0028 PRINT "Don McLean's "American Pie"." L0028: JE L00,#0c [FALSE] L0029 PRINT "Chopin's "Nocturne no. 1"." L0029: JE L00,#0d [FALSE] L0030 PRINT "Oxygene by Jean-Michel Jarre." L0030: JE L00,#0e [FALSE] L0031 PRINT "the Beatles' "Yellow Submarine"." L0031: JE L00,#0f [FALSE] L0032 PRINT "the Beatles' "She Loves You"." L0032: JE L00,#10 [FALSE] L0033 PRINT "the Beatles' "Hey Jude"." L0033: JE L00,#11 [FALSE] L0034 PRINT "the Beatles' "Lucy in the Sky with Diamonds"." L0034: JE L00,#12 [FALSE] L0035 PRINT "Queen's "Bohemian Rhapsody"." L0035: JE L00,#13 [FALSE] L0036 PRINT "the Beatles' "Magical Mystery Tour"." L0036: JE L00,#14 [FALSE] L0037 PRINT "the Beatles' "I Am The Walrus"." L0037: JE L00,#15 [FALSE] L0038 PRINT "Bill Haley's "Rock Around the Clock"." L0038: JE L00,#16 [FALSE] L0039 PRINT "the old Elvis Presley number "Jailhouse Rock"." L0039: JE L00,#17 [FALSE] L0040 PRINT "the old Elvis Presley number "Blue Suede Shoes"." L0040: JE L00,#18 [FALSE] L0041 PRINT "ELO's "Mr Blue Sky"." L0041: JE L00,#19 [FALSE] L0042 PRINT "Bach's Toccata in D minor for organ." L0042: JE L00,#1a [FALSE] L0043 PRINT "ABC's "The Look of Love"." L0043: JE L00,#1b [FALSE] L0044 PRINT "the Beach Boys' "California Girls"." L0044: JE L00,#1c [FALSE] L0045 PRINT "the Stranglers' "Golden Brown"." L0045: JE L00,#1d [FALSE] L0046 PRINT "Genesis' "That's All"." L0046: JE L00,#1e [FALSE] L0047 PRINT "Grieg's piano concerto." L0047: JE L00,#1f [FALSE] L0048 PRINT "Bruce Springsteen's "Born in the USA"." L0048: JE L00,#20 [FALSE] L0049 PRINT "Beethoven's Symphony no. 5." L0049: JE L00,#21 [FALSE] L0050 PRINT "Beethoven's "Emperor" piano concerto." L0050: JE L00,#22 [FALSE] L0051 PRINT "Mozart's "Elvira Madigan" concerto." L0051: JE L00,#23 [FALSE] L0052 PRINT "Bach's Brandenburg Concerto no. 5." L0052: JE L00,#24 [FALSE] L0053 PRINT "Deep Purple's "Smoke On The Water"." L0053: JE L00,#25 [FALSE] L0054 PRINT "Faure's Requiem." L0054: JE L00,#26 [FALSE] L0055 PRINT "Tchaikovsky's "1812 Overture"." L0055: JE L00,#27 [FALSE] L0056 PRINT "the Swan from Saint-Saens' "Carnival of the Animals"." L0056: JE L00,#28 [FALSE] L0057 PRINT "the "O Fortuna" from Carl Orff's "Carmina Burana"." L0057: JE L00,#29 [FALSE] L0058 PRINT "Led Zeppelin's "Stairway to Heaven"." L0058: JE L00,#2a [FALSE] L0059 PRINT "the Bugs Bunny theme tune." L0059: JE L00,#2b [FALSE] L0060 PRINT "Strauss' "Blue Danube" waltz." L0060: JE L00,#2c [FALSE] L0061 PRINT "the Star Wars theme tune." L0061: JE L00,#2d [FALSE] L0062 PRINT "the Star Trek theme tune." L0062: JE L00,#2e [FALSE] L0063 PRINT "the Dallas theme tune." L0063: JE L00,#2f [FALSE] L0064 PRINT "Wagner's "Ride of the Valkyries" overture." L0064: JE L00,#30 [FALSE] L0065 PRINT "Dire Straits' "Money For Nothing"." L0065: JE L00,#31 [FALSE] L0066 PRINT "Dire Straits' "Brothers In Arms"." L0066: JE L00,#32 [FALSE] L0067 PRINT "Dire Straits' "Tunnel Of Love"." L0067: JE L00,#33 [FALSE] L0068 PRINT "Wham's "Wake Me Up Before You Go-Go"." L0068: JE L00,#34 [FALSE] L0069 PRINT "something abysmal by Leo Sayer." L0069: JE L00,#35 [FALSE] L0070 PRINT "Lionel Richie's "Hello"." L0070: JE L00,#36 [FALSE] L0071 PRINT "Hot Chocolate's "Happy Birthday"." L0071: JE L00,#37 [FALSE] L0072 PRINT "Abba's "Mama Mia"." L0072: JE L00,#38 [FALSE] L0073 PRINT "Abba's "Knowing Me, Knowing You"." L0073: JE L00,#39 [FALSE] L0074 PRINT "Barry Manilow's "I Write The Songs"." L0074: JE L00,#3a [FALSE] L0075 PRINT "Ian Dury and the Blockheads' "Hit Me With Your Rhythm Stick"." L0075: JE L00,#3b [FALSE] L0076 PRINT "Ravel's "Bolero"." L0076: JE L00,#3c [FALSE] L0077 PRINT ""Nessun Dorma", as sung simultaneously by Pavarotti, Carreras and Dolly Parton." L0077: JE L00,#3d [FALSE] L0078 PRINT "Michael Jackson's "Thriller"." L0078: JE L00,#3e [FALSE] L0079 PRINT "Michael Jackson's "Billy Jean"." L0079: JE L00,#3f [FALSE] L0080 PRINT "Michael Jackson's "Beat It"." L0080: JE L00,#40 [FALSE] L0081 PRINT "Kylie Minogue's "I Should Be So Lucky"." L0081: JE L00,#41 [FALSE] L0082 PRINT "the Eurovision Song Contest's finest five minutes, "Diggy-Loo Diggy-Lay (Life Is Going My Way)"." L0082: JE L00,#42 [FALSE] L0083 PRINT "Dexy's Midnight Runners' "Come on Eileen"." L0083: JE L00,#43 [FALSE] L0084 PRINT "Steppenwolf's "Born to be Wild"." L0084: JE L00,#44 [FALSE] L0085 PRINT "John Cage's tuneful "Four minutes thirty-three seconds"." L0085: JE L00,#45 [FALSE] L0086 PRINT "Toto's "The Eye of the Tiger"." L0086: JE L00,#46 [FALSE] L0087 PRINT "Cyndi Lauper's "Girls Just Wanna Have Fun"." L0087: JE L00,#47 [FALSE] L0088 PRINT "the "Cavatina" from Beethoven's late string quartet op 130." L0088: JE L00,#48 [FALSE] L0089 PRINT "the traditional air "Greensleeves"." L0089: JE L00,#49 [FALSE] L0090 PRINT "Hoagy Carmichael's "Skylark"." L0090: JE L00,#4a [FALSE] L0091 PRINT "Noel Coward's "Don't Put Your Daughter On The Stage"." L0091: JE L00,#4b [FALSE] L0092 PRINT "Chas and Dave's "Rabbit Song"." L0092: JE L00,#4c [FALSE] L0093 PRINT "Paul McCartney's "Mull of Kintyre"." L0093: JE L00,#4d [FALSE] L0094 PRINT "John Lennon's "Imagine"." L0094: JE L00,#4e [FALSE] L0095 PRINT "the grisly carol "We Wish You A Merry Christmas"." L0095: JE L00,#4f [FALSE] L0096 PRINT "that hoary old favourite, "Oh Come All Ye Faithful"." L0096: JE L00,#50 [FALSE] L0097 PRINT ""My Way", crooned over by Frank Sinatra." L0097: NEW_LINE RTRUE Routine R0033, 2 locals GET_PROP L00,#15 -> L01 JG L01,G02 [FALSE] L0001 RFALSE L0001: JE L01,#00 [FALSE] L0002 RFALSE L0002: PUT_PROP L00,#15,#00 RTRUE Routine R0034, 2 locals GET_PROP L00,#15 -> L01 JE L01,#00 [FALSE] L0001 RFALSE L0001: DEC L01 PUT_PROP L00,#15,L01 JG L01,#00 [FALSE] L0002 RFALSE L0002: RTRUE Routine R0035, 2 locals ADD G02,L01 -> L01 PUT_PROP L00,#15,L01 RTRUE Routine R0036, 2 locals GET_PROP L00,#15 -> -(SP) SUB (SP)+,G02 -> L01 RET L01 Routine R0037, 2 locals GET_PROP L00,#15 -> -(SP) SUB (SP)+,#01 -> L01 JL L01,#64 [FALSE] L0001 PUT_PROP L00,#15,L01 L0001: JE L01,#02 [FALSE] L0002 PRINT " The torch flickers ominously. " L0002: JE L01,#00 [FALSE] L0003 PRINT " The torch finally dies out. " CLEAR_ATTR "electric torch",#00 CALL_2N R0041 (#08) L0003: RTRUE Routine R0038, 2 locals STORE L00,#55 GET_PROP L00,#15 -> -(SP) SUB (SP)+,#01 -> L01 PUT_PROP L00,#15,L01 JE L01,#04 [FALSE] L0001 PRINT " The ghost laughs in a gurgling kind of way, as it were always coughing and spluttering. " L0001: JE L01,#03 [FALSE] L0002 PRINT " The ghost begins to speak: My hour is almost come When I to sulph'rous and tormenting flames Must render up myself... Can this possibly be the infamous Sir Joshua Meldrewe? " L0002: JE L01,#02 [FALSE] L0003 PRINT " "But not yet it hasn't, mark my word. And there's the burden of my inheritance, little wart! Get thee from my sight ere I slice thee as befits a hog!" " L0003: JE L01,#01 [FALSE] L0004 PRINT " "I prithee once more, begone!" " L0004: JE L01,#00 [FALSE] L0005 PRINT " The ghost swoops around and through you, making you scream with panic. Somehow you manage to run back to safety, where your family (who never believe a word of it) give you plenty of tea and occupy you with holiday arrangements. As for you, you are so traumatised that you never venture into the attic again. " STORE G05,#03 L0005: RTRUE Routine R0039, 1 local TEST_ATTR L00,#00 [FALSE] L0001 RTRUE L0001: TEST_ATTR L00,#08 [FALSE] L0002 TEST_ATTR L00,#09 [FALSE] L0002 TEST_ATTR L00,#0a [TRUE] L0002 RFALSE L0002: GET_CHILD L00 -> L00 [TRUE] L0003 L0003: JE L00,#00 [TRUE] L0006 CALL_2S R0039 (L00) -> -(SP) JE #01,(SP)+ [FALSE] L0004 RTRUE L0004: GET_SIBLING L00 -> L00 [TRUE] L0005 L0005: JUMP L0003 L0006: RFALSE Routine R0040, 3 locals LOADB G13,L00 -> L01 JE L01,#00 [FALSE] L0002 LOADB G12,L00 -> L02 JE L00,#15 [FALSE] L0001 SUB #00,#32 -> L02 L0001: PUSH G40 INC G40 STOREB G13,L00,(SP)+ ADD G01,L02 -> G01 STORE G2d,L02 L0002: RTRUE Routine R0041, 1 local LOADB G2e,L00 -> -(SP) JE (SP)+,#00 [FALSE] L0001 STOREB G2e,L00,#01 STORE G2f,L00 L0001: RTRUE Routine R0042, 1 local JE L00,#00 [FALSE] L0001 RFALSE L0001: JE G2a,#01 [FALSE] L0002 SET_TEXT_STYLE BOLDFACE L0002: PRINT " [Your score just went " JG L00,#00 [FALSE] L0003 PRINT "up by " PRINT_NUM L00 JUMP L0004 L0003: PRINT "down by " SUB #00,L00 -> -(SP) PRINT_NUM (SP)+ L0004: JE L00,#01 [FALSE] L0005 PRINT " point.] " JUMP L0006 L0005: PRINT " points.] " L0006: JE G2a,#01 [FALSE] L0007 SET_TEXT_STYLE ROMAN L0007: RTRUE Routine R0043, 1 local JE G2a,#00 [FALSE] L0001 RFALSE L0001: JE L00,#00 [FALSE] L0002 STOREW G80,#00,S757 STOREW G80,#01,S758 STOREW G80,#02,#00 STOREW G80,#03,S759 CALL_VS R0044 (#04,#2b,G80) -> Gef L0002: JE L00,#01 [FALSE] L0003 STOREW G80,#00,S760 STOREW G80,#01,S761 STOREW G80,#02,S762 STOREW G80,#03,S763 STOREW G80,#04,#00 STOREW G80,#05,S764 CALL_VS R0044 (#06,#32,G80) -> Gef L0003: JE L00,#02 [FALSE] L0004 STOREW G80,#00,S765 STOREW G80,#01,S766 STOREW G80,#02,#00 STOREW G80,#03,S767 CALL_VS R0044 (#04,#28,G80) -> Gef L0004: JE L00,#03 [FALSE] L0005 STOREW G80,#00,S768 STOREW G80,#01,#00 STOREW G80,#02,S769 CALL_VS R0044 (#03,#2a,G80) -> Gef L0005: JE L00,#04 [FALSE] L0006 STOREW G80,#00,S770 STOREW G80,#01,S771 STOREW G80,#02,S772 STOREW G80,#03,S773 STOREW G80,#04,#00 STOREW G80,#05,S774 CALL_VS R0044 (#06,#23,G80) -> Gef L0006: JE L00,#05 [FALSE] L0007 STOREW G80,#00,S775 STOREW G80,#01,S776 STOREW G80,#02,S777 STOREW G80,#03,#00 STOREW G80,#04,S778 CALL_VS R0044 (#05,#33,G80) -> Gef L0007: JE L00,#06 [FALSE] L0008 STOREW G80,#00,S779 STOREW G80,#01,S780 STOREW G80,#02,#00 STOREW G80,#03,S781 CALL_VS R0044 (#04,#1c,G80) -> Gef L0008: JE L00,#07 [FALSE] L0009 STOREW G80,#00,S782 STOREW G80,#01,S783 STOREW G80,#02,#00 STOREW G80,#03,S784 CALL_VS R0044 (#04,#25,G80) -> Gef L0009: JE L00,#08 [FALSE] L0010 STOREW G80,#00,S785 STOREW G80,#01,S786 STOREW G80,#02,#00 STOREW G80,#03,S787 CALL_VS R0044 (#04,#2a,G80) -> Gef L0010: JE L00,#09 [FALSE] L0011 STOREW G80,#00,S788 STOREW G80,#01,S789 STOREW G80,#02,#00 STOREW G80,#03,S790 CALL_VS R0044 (#04,#2e,G80) -> Gef L0011: JE L00,#0a [FALSE] L0012 STOREW G80,#00,S791 STOREW G80,#01,S792 STOREW G80,#02,#00 STOREW G80,#03,S793 STOREW G80,#04,S794 CALL_VS R0044 (#05,#33,G80) -> Gef L0012: JE L00,#0b [FALSE] L0013 STOREW G80,#00,S795 STOREW G80,#01,#00 STOREW G80,#02,S796 CALL_VS R0044 (#03,#1c,G80) -> Gef L0013: JE L00,#0c [FALSE] L0014 STOREW G80,#00,S797 STOREW G80,#01,S798 STOREW G80,#02,S799 STOREW G80,#03,#00 STOREW G80,#04,S800 CALL_VS R0044 (#05,#2f,G80) -> Gef L0014: JE L00,#0d [FALSE] L0015 STOREW G80,#00,S801 STOREW G80,#01,S802 STOREW G80,#02,#00 STOREW G80,#03,S803 CALL_VS R0044 (#04,#34,G80) -> Gef L0015: JE L00,#0e [FALSE] L0016 STOREW G80,#00,S804 STOREW G80,#01,S805 STOREW G80,#02,#00 STOREW G80,#03,S806 CALL_VS R0044 (#04,#34,G80) -> Gef L0016: JE L00,#0f [FALSE] L0017 STOREW G80,#00,S807 STOREW G80,#01,#00 STOREW G80,#02,S808 CALL_VS R0044 (#03,#34,G80) -> Gef L0017: JE L00,#10 [FALSE] L0018 STOREW G80,#00,S809 STOREW G80,#01,S810 STOREW G80,#02,S811 STOREW G80,#03,S812 STOREW G80,#04,#00 STOREW G80,#05,S813 CALL_VS R0044 (#06,#1f,G80) -> Gef L0018: JE L00,#11 [FALSE] L0019 STOREW G80,#00,S814 STOREW G80,#01,S815 STOREW G80,#02,#00 STOREW G80,#03,S816 CALL_VS R0044 (#04,#1c,G80) -> Gef L0019: JE L00,#12 [FALSE] L0020 STOREW G80,#00,S817 STOREW G80,#01,S818 STOREW G80,#02,#00 STOREW G80,#03,S819 CALL_VS R0044 (#04,#30,G80) -> Gef L0020: JE L00,#13 [FALSE] L0021 STOREW G80,#00,S820 STOREW G80,#01,S821 STOREW G80,#02,S822 STOREW G80,#03,S823 STOREW G80,#04,#00 STOREW G80,#05,S824 CALL_VS R0044 (#06,#30,G80) -> Gef L0021: JE L00,#14 [FALSE] L0022 STOREW G80,#00,S825 STOREW G80,#01,S826 STOREW G80,#02,#00 STOREW G80,#03,S827 CALL_VS R0044 (#04,#30,G80) -> Gef L0022: JE L00,#15 [FALSE] L0023 STOREW G80,#00,S828 STOREW G80,#01,S829 STOREW G80,#02,S830 STOREW G80,#03,#00 STOREW G80,#04,S831 CALL_VS R0044 (#05,#2f,G80) -> Gef L0023: JE L00,#16 [FALSE] L0024 STOREW G80,#00,S832 STOREW G80,#01,S833 STOREW G80,#02,S834 STOREW G80,#03,S835 STOREW G80,#04,#00 STOREW G80,#05,S836 CALL_VS R0044 (#06,#1f,G80) -> Gef L0024: JE L00,#17 [FALSE] L0025 STOREW G80,#00,S837 STOREW G80,#01,S838 STOREW G80,#02,S839 STOREW G80,#03,#00 STOREW G80,#04,S840 CALL_VS R0044 (#05,#34,G80) -> Gef L0025: JE L00,#18 [FALSE] L0026 STOREW G80,#00,S841 STOREW G80,#01,S842 STOREW G80,#02,#00 STOREW G80,#03,S843 CALL_VS R0044 (#04,#30,G80) -> Gef L0026: JE L00,#19 [FALSE] L0027 STOREW G80,#00,S844 STOREW G80,#01,S845 STOREW G80,#02,S846 STOREW G80,#03,S847 STOREW G80,#04,#00 STOREW G80,#05,S848 CALL_VS R0044 (#06,#2b,G80) -> Gef L0027: JE L00,#1a [FALSE] L0028 STOREW G80,#00,S849 STOREW G80,#01,S850 STOREW G80,#02,S851 STOREW G80,#03,#00 STOREW G80,#04,S852 CALL_VS R0044 (#05,#34,G80) -> Gef L0028: JE L00,#1c [FALSE] L0029 STOREW G80,#00,S853 STOREW G80,#01,S854 STOREW G80,#02,S855 STOREW G80,#03,S856 STOREW G80,#04,S857 STOREW G80,#05,S858 STOREW G80,#06,#00 STOREW G80,#07,S859 CALL_VS R0044 (#08,#3c,G80) -> Gef L0029: JE L00,#1d [FALSE] L0030 STOREW G80,#00,S860 STOREW G80,#01,S861 STOREW G80,#02,#00 STOREW G80,#03,S862 CALL_VS R0044 (#04,#29,G80) -> Gef L0030: JE L00,#1e [FALSE] L0031 STOREW G80,#00,S863 STOREW G80,#01,S864 STOREW G80,#02,#00 STOREW G80,#03,S865 CALL_VS R0044 (#04,#32,G80) -> Gef L0031: JE L00,#1f [FALSE] L0032 STOREW G80,#00,S866 STOREW G80,#01,S867 STOREW G80,#02,S868 STOREW G80,#03,S869 STOREW G80,#04,#00 STOREW G80,#05,S870 CALL_VS R0044 (#06,#2f,G80) -> Gef L0032: JE L00,#20 [FALSE] L0033 STOREW G80,#00,S871 STOREW G80,#01,S872 STOREW G80,#02,S873 STOREW G80,#03,S874 STOREW G80,#04,#00 STOREW G80,#05,S875 CALL_VS R0044 (#06,#2e,G80) -> Gef L0033: JE L00,#21 [FALSE] L0034 STOREW G80,#00,S876 STOREW G80,#01,#00 STOREW G80,#02,S877 CALL_VS R0044 (#03,#2c,G80) -> Gef L0034: JE L00,#22 [FALSE] L0035 STOREW G80,#00,S878 STOREW G80,#01,S879 STOREW G80,#02,S880 STOREW G80,#03,S881 STOREW G80,#04,#00 STOREW G80,#05,S882 CALL_VS R0044 (#06,#36,G80) -> Gef L0035: JE L00,#23 [FALSE] L0036 STOREW G80,#00,S883 STOREW G80,#01,#00 STOREW G80,#02,S884 CALL_VS R0044 (#03,#2b,G80) -> Gef L0036: JE L00,#24 [FALSE] L0037 STOREW G80,#00,S885 STOREW G80,#01,S886 STOREW G80,#02,S887 STOREW G80,#03,#00 STOREW G80,#04,S888 CALL_VS R0044 (#05,#2f,G80) -> Gef L0037: JE L00,#25 [FALSE] L0038 STOREW G80,#00,S889 STOREW G80,#01,S890 STOREW G80,#02,#00 STOREW G80,#03,S891 CALL_VS R0044 (#04,#22,G80) -> Gef L0038: JE L00,#26 [FALSE] L0039 STOREW G80,#00,S892 STOREW G80,#01,S893 STOREW G80,#02,#00 STOREW G80,#03,S894 CALL_VS R0044 (#04,#32,G80) -> Gef L0039: JE L00,#27 [FALSE] L0040 STOREW G80,#00,S895 STOREW G80,#01,S896 STOREW G80,#02,#00 STOREW G80,#03,S897 CALL_VS R0044 (#04,#2a,G80) -> Gef L0040: JE L00,#28 [FALSE] L0041 STOREW G80,#00,S898 STOREW G80,#01,S899 STOREW G80,#02,#00 STOREW G80,#03,S900 CALL_VS R0044 (#04,#2d,G80) -> Gef L0041: JE L00,#29 [FALSE] L0042 STOREW G80,#00,S901 STOREW G80,#01,S902 STOREW G80,#02,S903 STOREW G80,#03,S904 STOREW G80,#04,#00 STOREW G80,#05,S905 CALL_VS R0044 (#06,#17,G80) -> Gef L0042: JE L00,#2a [FALSE] L0043 STOREW G80,#00,S906 STOREW G80,#01,S907 STOREW G80,#02,#00 STOREW G80,#03,S908 CALL_VS R0044 (#04,#26,G80) -> Gef L0043: JE L00,#2b [FALSE] L0044 STOREW G80,#00,S909 STOREW G80,#01,S910 STOREW G80,#02,S911 STOREW G80,#03,S912 STOREW G80,#04,S913 STOREW G80,#05,S914 STOREW G80,#06,#00 STOREW G80,#07,S915 CALL_VS R0044 (#08,#32,G80) -> Gef L0044: JE L00,#2c [FALSE] L0045 STOREW G80,#00,S916 STOREW G80,#01,S917 STOREW G80,#02,S918 STOREW G80,#03,S919 STOREW G80,#04,S920 STOREW G80,#05,#00 STOREW G80,#06,S921 CALL_VS R0044 (#07,#2d,G80) -> Gef L0045: JE L00,#2d [FALSE] L0046 STOREW G80,#00,S922 STOREW G80,#01,S923 STOREW G80,#02,#00 STOREW G80,#03,S924 CALL_VS R0044 (#04,#28,G80) -> Gef L0046: JE L00,#2e [FALSE] L0047 STOREW G80,#00,S925 STOREW G80,#01,S926 STOREW G80,#02,S927 STOREW G80,#03,#00 STOREW G80,#04,S928 CALL_VS R0044 (#05,#30,G80) -> Gef L0047: JE L00,#2f [FALSE] L0048 STOREW G80,#00,S929 STOREW G80,#01,S930 STOREW G80,#02,S931 STOREW G80,#03,S932 STOREW G80,#04,S933 STOREW G80,#05,S934 STOREW G80,#06,#00 STOREW G80,#07,S935 CALL_VS R0044 (#08,#27,G80) -> Gef L0048: RTRUE Routine R0044, 8 locals ADD L00,#06 -> -(SP) SPLIT_WINDOW (SP)+ SET_WINDOW #01 LOADB #00,#21 -> L03 JE L03,#00 [FALSE] L0001 STORE L03,#50 L0001: SUB L03,L01 -> -(SP) DIV (SP)+,#02 -> L04 SET_TEXT_STYLE REVERSE SUB L04,#02 -> L03 STORE L05,#05 STORE L06,#00 SET_CURSOR #04,L03 ADD L01,#04 -> -(SP) STORE Gef,(SP)+ JL Gef,#01 [TRUE] L0003 L0002: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0002 L0003: SET_CURSOR L05,L03 ADD L01,#04 -> -(SP) STORE Gef,(SP)+ JL Gef,#01 [TRUE] L0005 L0004: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0004 L0005: SET_CURSOR L05,L04 LOADW L02,L06 -> L07 JE L07,#00 [TRUE] L0006 PRINT_PADDR L07 L0006: INC L05 INC L06 JE L06,L00 [FALSE] L0003 SET_CURSOR L05,L03 ADD L01,#04 -> -(SP) STORE Gef,(SP)+ JL Gef,#01 [TRUE] L0008 L0007: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0007 L0008: BUFFER_MODE #01 SET_TEXT_STYLE ROMAN SET_WINDOW #00 SPLIT_WINDOW #01 OUTPUT_STREAM #ffff PRINT "[ " STORE L06,#00 L0009: LOADW L02,L06 -> L03 JE L03,#00 [TRUE] L0010 PRINT_PADDR L03 L0010: INC L06 JE L06,L00 [FALSE] L0011 PRINT "] " JUMP L0012 L0011: PRINT " " JUMP L0009 L0012: OUTPUT_STREAM OUTPUT_ENABLE RTRUE Routine R0045, 0 locals Action routine for: "etch SPECIAL" PRINT_RET "Graffiti is uncouth." Routine R0046, 0 locals Action routine for: "etch SPECIAL on NOUN" TEST_ATTR G4e,#20 [FALSE] L0001 PRINT_RET "The silver plaque is extremely strong, and resists all attempts to mark it." L0001: CALL_1N R0045 RTRUE Routine R0047, 1 local GET_PARENT L00 -> -(SP) JE (SP)+,G03 [FALSE] L0002 TEST_ATTR L00,#12 [TRUE] L0001 TEST_ATTR L00,#13 [FALSE] L0002 L0001: RTRUE L0002: RFALSE Routine R0048, 0 locals Action routine for: "l at NOUN in NOUN" "check reflectio of NOUN" "check NOUN in NOUN" JE G4e,#0125,#00 [TRUE] L0001 PRINT_RET "The point of which escapes me." L0001: JE G4d,G03 [FALSE] L0002 PRINT_RET "In the mirror is one of the most strikingly attractive people you have ever seen in all your born days." L0002: JE G4d,#019d [FALSE] L0003 PRINT "In the mirror is a model of a mischievous-looking monkey, which wriggles as it comes alive!" SET_ATTR "model of an animal so ugly you can't bear to look at it",#19 CALL_1N R0049 RTRUE L0003: CALL_2S R0047 (G4d) -> -(SP) JE (SP)+,#01 [FALSE] L0004 PRINT_RET "Curiously, it casts no reflection in the mirror." L0004: PRINT "In the mirror is the reflection of " CALL_2N R0290 (G4d) PRINT_RET "." Routine R0049, 0 locals REMOVE_OBJ "model of an animal so ugly you can't bear to look at it" CLEAR_ATTR "model of an animal so ugly you can't bear to look at it",#19 INSERT_OBJ "pet monkey","Stone Cross" INSERT_OBJ "Old Evans","Stone Cross" PUT_PROP "Old Evans",#02,S936 PRINT " Now that you have finally been able to look it in the eyes, the monkey leaps from your arms, revelling in its new life, and scampers away through the windows onto the balcony, then up and over the side of the house. You can just make it out as it races down the footpath. " RTRUE Routine R0050, 3 locals JE G4c,#43 [FALSE] L0001 PRINT_RET "What, and earn seven years bad luck?" L0001: JE G4c,#18,#1a [TRUE] L0002 RFALSE L0002: CALL_2N R0041 (#15) PRINT "In the mirror is one of the most strikingly attractive people you have ever seen in all your born days" STORE L01,#00 GET_CHILD G03 -> L00 [TRUE] L0003 L0003: JE L00,#00 [TRUE] L0006 CALL_2S R0047 (L00) -> -(SP) JE (SP)+,#00 [FALSE] L0004 INC L01 L0004: GET_SIBLING L00 -> L00 [TRUE] L0005 L0005: JUMP L0003 L0006: JE L01,#00 [FALSE] L0007 PRINT_RET "." L0007: PRINT ", carrying " STORE L02,#00 GET_CHILD G03 -> L00 [TRUE] L0008 L0008: JE L00,#00 [TRUE] L0016 CALL_2S R0047 (L00) -> -(SP) JE (SP)+,#00 [FALSE] L0014 JE L00,#019d [FALSE] L0009 PRINT "a model of a mischievous-looking monkey, which wriggles as it comes alive" SET_ATTR "model of an animal so ugly you can't bear to look at it",#19 JUMP L0010 L0009: CALL_2N R0289 (L00) L0010: SUB L01,#02 -> -(SP) JL L02,(SP)+ [FALSE] L0011 PRINT ", " L0011: SUB L01,#02 -> -(SP) JE L02,(SP)+ [FALSE] L0012 PRINT " and " L0012: SUB L01,#01 -> -(SP) JE L02,(SP)+ [FALSE] L0013 PRINT ". " L0013: INC L02 L0014: GET_SIBLING L00 -> L00 [TRUE] L0015 L0015: JUMP L0008 L0016: TEST_ATTR "model of an animal so ugly you can't bear to look at it",#19 [FALSE] L0017 CALL_1N R0049 L0017: RTRUE Routine R0051, 0 locals JE G4c,#43 [TRUE] L0001 JE G4c,#21 [FALSE] L0002 L0001: REMOVE_OBJ "framed charcoal sketch" INSERT_OBJ "charcoal sketch",G00 INSERT_OBJ "dog-eared old letter",G00 PRINT_RET "Breaking open the frame looses the sketch, which falls to the floor." L0002: RFALSE Routine R0052, 0 locals JE G4c,#18 [TRUE] L0001 RFALSE L0001: PRINT "A faint typewritten letter, postmarked Cairo, October 1920, with a handwritten note signed simply "Ellingsworth": Hartley - Thought you might be able to date some of these queer pictograms and determinitives, early New Kingdom? Pottery unclear, work continues " LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT " :: and # the #. this :; but +*+ god/spirit? (()) all = of [] house/building ||| indicates plural -> through >>> moves <> item/thing? __ sits/lies/rests/is near / to/toward " LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ RTRUE Routine R0053, 0 locals JE G4c,#18 [FALSE] L0001 PRINT "The stone bears two inscriptions, side by side: " LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT " #. [] = # +*+ __ an-ta re-im ka u bir ka-i ||| | | / # -+- :; # -+- ka ne : to-ro-ma ka ur | | >>> -> # (---) .je-fe-im ka ur-a an-ge to-ro-ma ||| " LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ RTRUE L0001: RFALSE Routine R0054, 0 locals JE G4c,#18 [FALSE] L0001 PRINT "Your dream eye is caught by... " LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT " (|/ # -o- >>> /|) " LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT_RET " Confused and hazy, you feel you can understand hieroglyphics, - or hasn't that happened yet?" L0001: RFALSE Routine R0055, 0 locals JE G4c,#18 [FALSE] L0001 LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT " (---) (---) (---) (---) " LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ RTRUE L0001: RFALSE Routine R0056, 0 locals JE G4c,#08 [FALSE] L0003 JE G4d,#0150,#74 [FALSE] L0003 JE G4e,#0157 [FALSE] L0003 TEST_ATTR "inscriptions",#0a [FALSE] L0003 SET_ATTR G4d,#0f CLEAR_ATTR G4d,#06 INSERT_OBJ G4d,G00 JE G4d,#0150 [FALSE] L0001 PUT_PROP G4d,#04,S937 JUMP L0002 L0001: PUT_PROP G4d,#04,S938 L0002: PRINT "You wedge " CALL_2N R0290 (G4d) PRINT_RET " across the opening." L0003: JE G4c,#02 [FALSE] L0004 JE G4d,#0150,#74 [FALSE] L0004 TEST_ATTR G4d,#0f [FALSE] L0004 CLEAR_ATTR G4d,#0f SET_ATTR G4d,#06 L0004: RFALSE Routine R0057, 0 locals JE G4c,#02 [FALSE] L0003 TEST_ATTR "gleaming amber gem",#06 [TRUE] L0003 PRINT "There is a horrible screeching sound as a trap is sprung. " TEST_ATTR "inscribed stone",#0f [TRUE] L0001 TEST_ATTR "old timber spar",#0f [FALSE] L0002 L0001: PRINT "The walls begin to crush together: but are securely wedged, and cannot move... " RFALSE L0002: STORE G05,#01 PRINT_RET "The opening crushes together, and so do the walls! They reduce you to powdered dog biscuit in a matter of seconds." L0003: RFALSE Routine R0058, 0 locals JE G4c,#18 [FALSE] L0001 TEST_ATTR "gilded model coffin",#0a [FALSE] L0001 PRINT "The inscription is in strange hieroglyphics: " LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT " (()) #+*+ <> ->#. ||| " LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ RTRUE L0001: JE G4c,#21 [FALSE] L0002 TEST_ATTR "gilded model coffin",#19 [FALSE] L0002 TEST_ATTR "old gardeners' gloves",#02 [TRUE] L0002 STORE G05,#03 PRINT_RET "There is a flash and then everything goes dark! You were given a nasty shock by that coffin. "Must have been some old wiring," says a doctor, leaning over you in hospital." L0002: RFALSE Routine R0059, 1 local CLEAR_ATTR L00,#20 GET_PROP L00,#1f -> -(SP) GET_PROP L00,#1d -> -(SP) CALL_VN R0150 ((SP)+,(SP)+) GET_PROP L00,#1e -> -(SP) GET_PROP_ADDR L00,#01 -> -(SP) STOREW (SP)+,#02,(SP)+ GET_PROP L00,#1e -> -(SP) GET_PROP_ADDR L00,#01 -> -(SP) STOREW (SP)+,#03,(SP)+ PUT_PROP L00,#03,S939 RTRUE Routine R0060, 1 local JE G4c,#23 [FALSE] L0005 GET_CHILD "gilded model coffin" -> L00 [TRUE] L0001 L0001: JE L00,#00 [TRUE] L0004 TEST_ATTR L00,#20 [FALSE] L0002 CALL_2N R0059 (L00) SET_ATTR "gilded model coffin",#19 PUT_PROP "gilded model coffin",#04,S940 PRINT_RET "The coffin sparks, spitting with electricity and begins throbbing with a life of its own!" L0002: GET_SIBLING L00 -> L00 [TRUE] L0003 L0003: JUMP L0001 L0004: PUT_PROP "gilded model coffin",#04,S941 CLEAR_ATTR "gilded model coffin",#19 L0005: JE G4c,#21 [FALSE] L0006 PUT_PROP "gilded model coffin",#04,S942 L0006: RFALSE Routine R0061, 0 locals JE G4c,#02,#03 [FALSE] L0001 TEST_ATTR G4d,#12 [FALSE] L0001 TEST_ATTR G4d,#20 [TRUE] L0001 CALL_2N R0040 (#1c) L0001: JE G4c,#08 [FALSE] L0002 TEST_ATTR G4d,#20 [FALSE] L0002 JE G4e,#0133 [FALSE] L0002 TEST_ATTR G4e,#0a [FALSE] L0002 PRINT_RET "The mahogany rod fits in perfectly." L0002: RFALSE Routine R0062, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#0a [TRUE] L0002 L0001: RFALSE L0002: GET_PROP "Dead End",#0b -> -(SP) JE (SP)+,#00 [TRUE] L0003 RFALSE L0003: PRINT_RET "The fire escape is perilous and leads nowhere. Doubtless it would be useless in any real fire." Routine R0063, 0 locals RFALSE Routine R0064, 0 locals JE G4c,#08 [FALSE] L0002 JE G4e,#013c [FALSE] L0002 JE G4d,#4e [TRUE] L0001 PRINT_RET "Doesn't seem right there, somehow." L0001: INSERT_OBJ "painting of Mad Isaac Meldrewe","White Hallway" CLEAR_ATTR "painting of Mad Isaac Meldrewe",#06 PUT_PROP "painting of Mad Isaac Meldrewe",#04,S943 PRINT_RET "You hang up Mad Isaac, who seems ideally placed there." L0002: RFALSE Routine R0065, 0 locals CALL_2N R0041 (#16) RFALSE Routine R0066, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#02 [FALSE] L0001 SET_ATTR "flock of sparrows",#19 PRINT "Your first step towards the sparrows startles them into the air, and they whirl upwards and around with panic, chirping their alarm. " L0001: RFALSE Routine R0067, 0 locals TEST_ATTR "gold watch on a chain",#06 [TRUE] L0001 PRINT_RET "The watch is just within sight, but beyond reach." L0001: JE G4c,#57,#35 [FALSE] L0002 PRINT_RET "You come dangerously close to hypnotising yourself." L0002: RFALSE Routine R0068, 0 locals Action routine for: "hypnotise CREATURE" GET_PARENT "gold watch on a chain" -> -(SP) JE (SP)+,G03 [TRUE] L0001 PRINT_RET "Unaided, you are unable to make any impression." L0001: PRINT "You set the gold watch swinging, back and forth, spinning the light. " JE G4d,#016d [FALSE] L0002 SET_ATTR "Old Evans",#19 PRINT_RET "Old Evans, who is nine-tenths hypnotised most of the time anyway, succumbs easily." L0002: JE G4d,G03 [FALSE] L0003 CALL_1N R0312 RFALSE L0003: PRINT "But " CALL_2N R0290 (G4d) PRINT_RET " seems too strong-willed, and impervious to hypnosis." Routine R0069, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#03 [FALSE] L0001 TEST_ATTR "flock of sparrows",#19 [FALSE] L0001 CLEAR_ATTR "flock of sparrows",#19 PRINT "As you step out, the sparrows gradually settle back down again. " L0001: RFALSE Routine R0070, 0 locals JE G4c,#17 [TRUE] L0001 RFALSE L0001: TEST_ATTR "flock of sparrows",#19 [TRUE] L0002 PRINT " Sparrows chirp happily away to themselves around the high gutter. " JUMP L0003 L0002: PRINT " Startled sparrows circle high in the sky, showing no signs of calming down. " L0003: RFALSE Routine R0071, 0 locals JE G4c,#35 [TRUE] L0001 RFALSE L0001: PRINT_RET "Apparently, it's not susceptible to that." Routine R0072, 0 locals JE G4c,#18 [TRUE] L0001 RFALSE L0001: TEST_ATTR " ",#19 [FALSE] L0002 RFALSE L0002: SET_ATTR " ",#19 CALL_VN R0150 (#1c,#019c) GET_PROP_ADDR " ",#01 -> -(SP) STOREW (SP)+,#03,"spade" PRINT_RET "On second thoughts, let's just call a spade a spade." Routine R0073, 1 local JL L00,#00 [FALSE] L0001 SUB #00,L00 -> L00 L0001: JE L00,#00 [FALSE] L0002 PRINT "nought" L0002: JE L00,#01 [FALSE] L0003 PRINT "a pace" RFALSE L0003: JE L00,#02 [FALSE] L0004 PRINT "two" L0004: JE L00,#03 [FALSE] L0005 PRINT "three" L0005: JE L00,#04 [FALSE] L0006 PRINT "four" L0006: JE L00,#05 [FALSE] L0007 PRINT "five" L0007: JE L00,#06 [FALSE] L0008 PRINT "six" L0008: JE L00,#07 [FALSE] L0009 PRINT "seven" L0009: JE L00,#08 [FALSE] L0010 PRINT "eight" L0010: JE L00,#09 [FALSE] L0011 PRINT "nine" L0011: JE L00,#0a [FALSE] L0012 PRINT "ten" L0012: JE L00,#0b [FALSE] L0013 PRINT "eleven" L0013: JE L00,#0c [FALSE] L0014 PRINT "twelve" L0014: PRINT " paces" RTRUE Routine R0074, 0 locals JE G4c,#1a,#18 [FALSE] L0002 JE G4d,#e7 [FALSE] L0002 TEST_ATTR "model ship",#19 [TRUE] L0001 PRINT_RET "Nothing else." L0001: CLEAR_ATTR "model ship",#19 SET_ATTR "model ship",#06 INSERT_OBJ "model ship",G03 PRINT_RET "In fact there's nothing hidden among the crates but a model sailing ship. You pick it up from force of habit." L0002: RFALSE Routine R0075, 0 locals JE G4c,#18 [FALSE] L0002 GET_PARENT "ship in a bottle" -> -(SP) JE (SP)+,G03 [TRUE] L0001 PRINT_RET "You can't get a good look from here." L0001: INSERT_OBJ G03,"Aboard Ship" STORE G00,#01c8 INSERT_OBJ "ship in a bottle","Souvenirs Room" PRINT_RET "You look very closely at the fine detail on the model sailing ship. Perhaps it's the distorting glass of the bottle, perhaps your romantic imagination, but the deck seems more detailed, the rigging might almost be swaying, the little figure by one mast might almost be alive... In fact, the closer you look the more sea-sick you feel. Thank heavens for the deck rail, something to hang on to while this moment of queasiness passes. " L0002: RFALSE Routine R0076, 0 locals CALL_2N R0041 (#0b) RFALSE Routine R0077, 0 locals JE G4c,#35 [FALSE] L0003 JE G00,#0168 [FALSE] L0001 GET_PARENT "corn crake" -> -(SP) JE (SP)+,#00 [FALSE] L0002 L0001: PRINT_RET "Well, you can hardly be blamed for trying." L0002: REMOVE_OBJ "corn crake" PRINT_RET "The bird is so startled by the waved branch that she leaps into the skies, squawking with flighty anxiety." L0003: RFALSE Routine R0078, 0 locals JE G4c,#08 [FALSE] L0002 JE G4e,#5c [FALSE] L0002 JE G4d,#01cb [FALSE] L0001 CLEAR_ATTR "comfortable bed",#0e SET_ATTR "comfortable bed",#0f PUT_PROP "comfortable bed",#04,S944 INSERT_OBJ "flag of the British Merchant Navy","comfortable bed" PRINT_RET "You spread the flag over the bed as a blanket." JUMP L0002 L0001: PRINT_RET "That seems unlikely to make a good blanket." L0002: JE G4c,#4e [FALSE] L0004 GET_PARENT G03 -> -(SP) JE (SP)+,#5c [FALSE] L0004 GET_PARENT "flag of the British Merchant Navy" -> -(SP) JE (SP)+,#5c [TRUE] L0003 PRINT_RET "Awareness that something important is happening tugs at your subconscious. But you feel too exposed to sleep with only a sheet on the bed, and can't get comfortable." L0003: CALL_2N R0040 (#1a) L0004: RFALSE Routine R0079, 0 locals JE G4c,#02,#3d,#3b [TRUE] L0001 JE G4c,#39 [FALSE] L0002 L0001: JE G4d,#01ca [FALSE] L0002 PRINT_RET "The flagpole is very securely fixed to the main mast." L0002: JE G4c,#02,#39 [FALSE] L0003 JE G4d,#01cb [FALSE] L0003 SET_ATTR "flag of the British Merchant Navy",#19 PRINT_RET "You take hold of the tassels of the flag in one hand (though it won't pull away from the pole)." L0003: JE G4c,#09,#03 [FALSE] L0004 JE G4d,#01cb [FALSE] L0004 CLEAR_ATTR "flag of the British Merchant Navy",#19 PRINT_RET "You leave hold of the tassels of the flag." L0004: JE G4c,#6c [FALSE] L0006 PRINT "You jump (madly) from the crow's nest " TEST_ATTR "flag of the British Merchant Navy",#19 [FALSE] L0005 PRINT "(tearing the flag as you go) " L0005: STORE G05,#01 PRINT_RET "to a colourful demise on the deck below." L0006: JE G4c,#80 [FALSE] L0008 PRINT "You wander out onto the flagpole, which bows and bends alarmingly, until suddenly... " TEST_ATTR "flag of the British Merchant Navy",#19 [TRUE] L0007 STORE G05,#01 PRINT_RET "Crack! And you are falling, plummeting, head over heels to the hard wooden deck and the inevitable iron fixtures..." L0007: INSERT_OBJ "flag of the British Merchant Navy","Aboard Ship" CLEAR_ATTR "flag of the British Merchant Navy",#01 CLEAR_ATTR "flag of the British Merchant Navy",#19 REMOVE_OBJ "flagpole" INSERT_OBJ "old timber spar","Aboard Ship" INSERT_OBJ G03,"Aboard Ship" STORE G00,#01c8 CALL_2N R0040 (#19) PRINT_RET "Crack! And you are falling... but gracefully, as the flag billows out into a parachute, until it suddenly tears out of your hand and you come down in an ignominious heap." L0008: JE G4c,#4f,#51 [FALSE] L0009 PRINT_RET "Up here?" L0009: JE G4c,#13 [FALSE] L0010 JE G4d,#0b [FALSE] L0010 TEST_ATTR "flag of the British Merchant Navy",#19 [FALSE] L0010 CLEAR_ATTR "flag of the British Merchant Navy",#19 PRINT "You are obliged to leave hold of the flag en route. " L0010: RFALSE Routine R0080, 0 locals JE G4c,#13,#04 [FALSE] L0002 JE G4d,#0b,#01cf [FALSE] L0002 TEST_ATTR "capstan",#19 [TRUE] L0001 PRINT_RET "You shin precariously down the anchor chain, but reach the end while still hanging very far above the... water? quicksand? Concentrating very carefully, you heave yourself back aboard and pant with relief." L0001: INSERT_OBJ G03,"Souvenirs Room" STORE G00,#42 PRINT_RET "You shin down the anchor chain, down, down, under the keel of the Lady Magdalena, down until there is nothing but the glassy mist and the endless chain... ...And the approaching soft, spongy, pinkish sand-bank, which welcomes you with its warmth: you step ashore, and immediately sink into the clammy, living sand, until you are engulfed altogether... and pass out. However, the hard attic floorboards beneath your back soon wake you again." L0002: JE G4c,#3d [FALSE] L0005 PRINT "You heave away at the capstan, " TEST_ATTR "capstan",#19 [FALSE] L0003 CLEAR_ATTR "capstan",#19 JUMP L0004 L0003: SET_ATTR "capstan",#19 PRINT "un" L0004: PRINT_RET "winding the great anchor chain." L0005: RFALSE Routine R0081, 0 locals JE G4c,#39 [FALSE] L0002 JE G4d,#ea [FALSE] L0001 REMOVE_OBJ "model ship" INSERT_OBJ "stick with an anchor",G03 STORE G71,#eb SET_ATTR G71,#06 PRINT_RET "As you pull the anchor chain, the masts fold inwards and the decks concertina back, until you're holding no more than a tight bundle of sticks." L0001: REMOVE_OBJ "stick with an anchor" INSERT_OBJ "model ship",G03 STORE G71,#ea PRINT_RET "As you pull the anchor chain, the sticks spring back outwards into the fully-rigged model sailing ship you knew of old." L0002: JE G4c,#08 [FALSE] L0004 JE G4e,#e8 [FALSE] L0004 JE G4d,#ea [FALSE] L0003 PRINT_RET "The model ship is, of course, far too large to fit into the bottle." L0003: REMOVE_OBJ "mounted bottle" REMOVE_OBJ "stick with an anchor" INSERT_OBJ "ship in a bottle",G03 SET_ATTR "ship in a bottle",#06 CALL_2N R0040 (#18) PRINT_RET "The bundle of sticks will just fit through the bottle's neck. With a sudden spring, just as the last of the stick passes the neck, its masts fold out... and you have put the ship into the bottle." L0004: JE G4c,#35 [FALSE] L0005 JE G4d,#eb [FALSE] L0005 PRINT_RET "Ever the optimist." L0005: RFALSE Routine R0082, 0 locals JE G81,#03 [FALSE] L0001 PRINT_RET "The priestess has told you enough." L0001: TEST_ATTR "Oracle",#19 [TRUE] L0002 PRINT_RET "The priestess remains silent. Only by an offering can the wisdom of Apollo be gained." L0002: CLEAR_ATTR "Oracle",#19 INC G81 PRINT "The priestess, Pythian oracle of Loxias, seems hardly to hear or understand: but goes into a trance, swaying to a sensuous rhythm: and chants, in English, " JE G81,#01 [FALSE] L0003 PRINT " "As Hephaestus, master of the metals uncovered the gilden sunrise of Helicon so, in " CALL_2N R0073 (G36) PRINT " and " CALL_2N R0073 (G37) PRINT " when six arches have stood sixty years shall even a shade's remains be cast."" L0003: JE G81,#02 [FALSE] L0004 PRINT " "Like the eruptions of Sicilian mounts shall come devices to ruin a castle, which no bronze armour can withstand save, it may be, a veil of the neck."" L0004: JE G81,#03 [FALSE] L0005 PRINT " "Your ancestor, pestle in hand made the salve you shall need to defy the Druids' earthly band: take care, mortal, take heed."" L0005: NEW_LINE JE G81,#01 [FALSE] L0006 PRINT " Apollo is what you might call an annoying git, were he not also an alarmingly powerful deity. " L0006: RTRUE Routine R0083, 0 locals CALL_2N R0041 (#29) GET_PARENT "corn crake" -> -(SP) JE (SP)+,#0168 [FALSE] L0001 PRINT_RET "The corn crake won't let you near her nest." L0001: RFALSE Routine R0084, 0 locals JE G4c,#3b [FALSE] L0001 PRINT_RET "Perhaps you should say which way to push." L0001: RFALSE Routine R0085, 0 locals JE G4c,#08 [TRUE] L0001 RFALSE L0001: JE G4e,#0164 [TRUE] L0002 RFALSE L0002: REMOVE_OBJ G4d JE G4d,#0165 [FALSE] L0003 INSERT_OBJ "fig","Outside Taverna" PUT_PROP "fig",#04,S945 CLEAR_ATTR "fig",#06 L0003: TEST_ATTR G4d,#1a [FALSE] L0004 SET_ATTR "Oracle",#19 PRINT_RET "You have pleased the god Apollo - Loxias, god of words and counsel, as he was once called! Very wise." L0004: PRINT_RET "The god Apollo is unimpressed with your offering, which feeds the eternal flame." Routine R0086, 0 locals JE G4c,#21,#3b,#39 [TRUE] L0001 JE G4c,#3d [FALSE] L0002 L0001: GET_PARENT "irate squirrel friend" -> -(SP) JE (SP)+,#0145 [FALSE] L0002 PRINT_RET "The squirrel rears up and nips you on the wrist. You withdraw, hurt." L0002: RFALSE Routine R0087, 0 locals JE G4c,#1a [FALSE] L0001 PRINT_RET "Through the crack you can see sunlight on the summer-house floorboards." L0001: RFALSE Routine R0088, 0 locals JE G4c,#08 [FALSE] L0002 JE G4e,#0147 [FALSE] L0002 JE G4d,#016a [FALSE] L0001 SET_ATTR "loose board",#0a INSERT_OBJ "bunch of nuts","irate squirrel friend" INSERT_OBJ "irate squirrel friend","Summer House" CALL_1N R0089 PUT_PROP "Summer House",#09,#0145 PRINT_RET "You throw the nuts through the loose board into the summer house, and the squirrel jumps up after them, battering through the board and opening up a hole in the wall." L0001: INSERT_OBJ G4d,"Summer House" PRINT_RET "Thrown through the loose board into the summer house." L0002: RFALSE Routine R0089, 0 locals PUT_PROP "irate squirrel friend",#04,S946 RTRUE Routine R0090, 0 locals JE G4c,#13 [FALSE] L0001 STORE G34,#00 STORE G35,#00 L0001: RFALSE Routine R0091, 0 locals Action routine for: "pace" CALL_VN R0094 (#01,#04) RTRUE Routine R0092, 0 locals Action routine for: "get a pace NOUN" "go a pace NOUN" "pace NOUN" CALL_VN R0094 (#01,G4d) RTRUE Routine R0093, 0 locals Action routine for: "go SPECIAL paces NOUN" "pace SPECIAL paces NOUN" JG G51,#00 [TRUE] L0001 PRINT_RET "How many paces was that?" L0001: JG G51,#19 [FALSE] L0002 PRINT_RET "That's too many paces at once!" L0002: CALL_VN R0094 (G51,G4e) RTRUE Routine R0094, 6 locals JE G00,#0149 [TRUE] L0001 PRINT_RET "You pace up and down, Holmes-fashion." L0001: JE L01,#00 [FALSE] L0002 PRINT_RET "Perhaps you should say which way to pace." L0002: GET_PARENT L01 -> -(SP) JE (SP)+,#01 [TRUE] L0003 PRINT_RET "What?" L0003: JE L01,#02 [FALSE] L0004 STORE L03,#01 L0004: JE L01,#03 [FALSE] L0005 STORE L03,#ffff L0005: JE L01,#04 [FALSE] L0006 STORE L02,#01 L0006: JE L01,#05 [FALSE] L0007 STORE L02,#ffff L0007: JE L01,#06 [FALSE] L0008 STORE L02,#01 STORE L03,#01 L0008: JE L01,#07 [FALSE] L0009 STORE L02,#ffff STORE L03,#01 L0009: JE L01,#08 [FALSE] L0010 STORE L02,#01 STORE L03,#ffff L0010: JE L01,#09 [FALSE] L0011 STORE L02,#ffff STORE L03,#ffff L0011: JE L02,#00 [FALSE] L0012 JE L03,#00 [FALSE] L0012 PRINT_RET "Hardly!" L0012: MUL L02,L00 -> -(SP) ADD G34,(SP)+ -> L04 MUL L03,L00 -> -(SP) ADD G35,(SP)+ -> L05 JL L04,#0d [FALSE] L0013 JG L04,#fff3 [FALSE] L0013 JL L05,#0d [FALSE] L0013 JG L05,#fff3 [TRUE] L0014 L0013: PRINT_RET "That would go past the edge of the lawn." L0014: STORE G34,L04 STORE G35,L05 CALL_2N R0198 (#01) RTRUE Routine R0095, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#0a [TRUE] L0002 RFALSE L0002: PUT_PROP "Servant's Room",#12,#014e PUT_PROP "Servant's Room",#09,#014e INSERT_OBJ "tight door","Servant's Room" PRINT "The staircase leads up into... " RFALSE Routine R0096, 0 locals JE G4c,#02 [FALSE] L0001 PRINT_RET "Austin sidles out of reach resentfully, then belches." L0001: JE G4c,#43 [FALSE] L0002 PRINT_RET "It is so pathetically easy to kick Austin that you never quite have the heart. Thus he outwits you again." L0002: RFALSE Routine R0097, 1 local PRINT " Austin " RANDOM #06 -> L00 JE L00,#01 [FALSE] L0001 PRINT "preens himself" L0001: JE L00,#02 [FALSE] L0002 PRINT "wriggles" L0002: JE L00,#03 [FALSE] L0003 PRINT "springs about" L0003: JE L00,#04 [FALSE] L0004 PRINT "frisks" L0004: JE L00,#05 [FALSE] L0005 PRINT "purrs" L0005: JE L00,#06 [FALSE] L0006 PRINT "hisses" L0006: RANDOM #03 -> L00 JE L00,#01 [FALSE] L0007 PRINT_RET " contentedly." L0007: JE L00,#02 [FALSE] L0008 PRINT_RET " happily." L0008: PRINT_RET " cheerfully." Routine R0098, 4 locals GET_PARENT "Austin" -> L01 STORE L03,#ffff JE L00,#01 [FALSE] L0001 STORE L01,G00 JUMP L0018 L0001: JE L01,#83 [FALSE] L0004 INSERT_OBJ "Austin","Aunt Jemima's Lair" JE G00,#83 [FALSE] L0002 PRINT_RET " Jemima catches sight of Austin, and without warning jumps on the spot, startling him. He springs away, hissing." L0002: JE G00,#7e [FALSE] L0003 PRINT_RET " Austin springs in from the potting room like a scalded cat, but hastily rearranges himself to his usual "cool slob" demeanour." L0003: RFALSE L0004: RANDOM #0a -> L02 JG L02,#08 [FALSE] L0005 JUMP L0014 L0005: JE L01,G00 [TRUE] L0006 RFALSE L0006: GET_PARENT "robot mouse" -> -(SP) JE (SP)+,G00 [FALSE] L0007 PRINT_RET " Austin plays with the robot mouse, kicking it wildly across the floorboards. It beeps piteously, hoping to be rescued." L0007: JE G00,#45 [FALSE] L0008 RANDOM #02 -> -(SP) JE (SP)+,#01 [FALSE] L0008 PRINT_RET " Austin scuffles with the insulation rolls, as if trying to bury something." L0008: JE G00,#38 [FALSE] L0009 RANDOM #02 -> -(SP) JE (SP)+,#01 [FALSE] L0009 PRINT_RET " Austin jumps up at the cord, but falls back down again, growling." L0009: JE L02,#01 [FALSE] L0010 PRINT_RET " Austin yawns." L0010: JE L02,#02 [FALSE] L0011 PRINT_RET " Austin rolls over on his back and stretches." L0011: JE L02,#03 [FALSE] L0012 PRINT_RET " Austin looks ineffable again." L0012: JE L02,#04 [FALSE] L0013 PRINT_RET " Austin purrs and licks one of his paws." L0013: RFALSE L0014: JE L01,#2d [FALSE] L0016 TEST_ATTR "hinged trapdoor",#0a [TRUE] L0016 JE G00,#1d [FALSE] L0015 PRINT_RET " There is a faint scratching noise at the trapdoor." L0015: RFALSE L0016: JE L01,#2d [FALSE] L0017 INSERT_OBJ "Austin","Attic" JE G00,#1d [FALSE] L0017 PRINT_RET " Austin, your ginger cat, jumps up through the trap door." L0017: JE L01,#1d [FALSE] L0018 TEST_ATTR "hinged trapdoor",#0a [FALSE] L0018 JE L02,#0a [FALSE] L0018 INSERT_OBJ "Austin","House" JE G00,#1d [FALSE] L0018 PRINT_RET " Austin, bored again, disappears through the trap door." L0018: JE L01,#1d [FALSE] L0021 RANDOM #03 -> L02 JE L02,#01 [FALSE] L0019 STORE L03,#2e L0019: JE L02,#02 [FALSE] L0020 STORE L03,#61 L0020: JE L02,#03 [FALSE] L0021 STORE L03,#28 L0021: JE L01,#28 [FALSE] L0022 STORE L03,#1d L0022: JE L01,#2e [FALSE] L0024 JE L02,#09 [FALSE] L0023 STORE L03,#1d JUMP L0024 L0023: STORE L03,#37 L0024: JE L01,#37 [FALSE] L0028 RANDOM #04 -> L02 JE L02,#01 [FALSE] L0025 STORE L03,#2e L0025: JE L02,#02 [FALSE] L0026 STORE L03,#45 L0026: JE L02,#03 [FALSE] L0027 STORE L03,#38 L0027: JE L02,#04 [FALSE] L0028 STORE L03,#3c L0028: JE L01,#45 [FALSE] L0029 STORE L03,#37 L0029: JE L01,#38 [FALSE] L0030 STORE L03,#37 L0030: JE L01,#3c [FALSE] L0035 TEST_ATTR "slide projector",#18 [FALSE] L0032 JE G25,#00 [TRUE] L0032 JE L00,#00 [FALSE] L0032 JE G00,#3c [FALSE] L0031 PRINT_RET " Austin seems fascinated by the beam of light." L0031: RFALSE L0032: RANDOM #03 -> L02 JE L02,#01 [FALSE] L0033 STORE L03,#37 L0033: JE L02,#02 [FALSE] L0034 STORE L03,#3f L0034: JE L02,#03 [FALSE] L0035 STORE L03,#42 L0035: JE L01,#3f [FALSE] L0036 STORE L03,#3c L0036: JE L01,#42 [FALSE] L0039 TEST_ATTR "slide projector",#18 [FALSE] L0038 JE L00,#00 [FALSE] L0038 JE G00,#42 [FALSE] L0037 PRINT_RET " Austin stares curiously at the slideshow." L0037: RFALSE L0038: STORE L03,#3c L0039: JE L01,#61 [FALSE] L0041 RANDOM #02 -> L02 JE L02,#01 [FALSE] L0040 STORE L03,#1d L0040: JE L02,#02 [FALSE] L0041 STORE L03,#7e L0041: JE L01,#7e [FALSE] L0043 RANDOM #02 -> L02 JE L02,#01 [FALSE] L0042 STORE L03,#83 L0042: JE L02,#02 [FALSE] L0043 STORE L03,#61 L0043: JE L03,#ffff [FALSE] L0044 RFALSE L0044: INSERT_OBJ "Austin",L03 JE G00,L01,L03 [FALSE] L0071 JE L00,#00 [FALSE] L0057 PRINT " Austin " RANDOM #0a -> L02 JE L02,#01 [FALSE] L0045 PRINT "sidles" L0045: JE L02,#02 [FALSE] L0046 PRINT "ambles" L0046: JE L02,#03 [FALSE] L0047 PRINT "strolls" L0047: JE L02,#04 [FALSE] L0048 PRINT "runs" L0048: JE L02,#05 [FALSE] L0049 PRINT "oozes" L0049: JE L02,#06 [FALSE] L0050 PRINT "scurries" L0050: JE L02,#07 [FALSE] L0051 PRINT "tiptoes" L0051: JE L02,#08 [FALSE] L0052 PRINT "leaps" L0052: JE L02,#09 [FALSE] L0053 PRINT "crawls" L0053: JE L02,#0a [FALSE] L0054 PRINT "rolls" L0054: JE G00,L01 [FALSE] L0055 PRINT " away to " STORE L02,L03 JUMP L0056 L0055: PRINT " in from " STORE L02,L01 L0056: JUMP L0058 L0057: PRINT "to " STORE L02,L03 L0058: PRINT "the " JE L02,#1d [FALSE] L0059 PRINT_RET "attic." L0059: JE L02,#2e [FALSE] L0060 PRINT_RET "furniture store." L0060: JE L02,#61 [FALSE] L0061 PRINT_RET "winery." L0061: JE L02,#28 [FALSE] L0062 PRINT_RET "servant's bedroom." L0062: JE L02,#7e [FALSE] L0063 PRINT_RET "conservatory." L0063: JE L02,#83 [FALSE] L0064 PRINT_RET "potting room." L0064: JE L02,#37 [FALSE] L0065 PRINT_RET "east landing." L0065: JE L02,#45 [FALSE] L0066 PRINT_RET "annexe." L0066: JE L02,#38 [FALSE] L0067 PRINT_RET "dark room." L0067: JE L02,#3c [FALSE] L0068 PRINT_RET "observatory." L0068: JE L02,#42 [FALSE] L0069 PRINT_RET "souvenirs room." L0069: JE L02,#3f [FALSE] L0070 PRINT_RET "book store." L0070: PRINT_RET "cold." L0071: RTRUE Routine R0099, 0 locals JE G4c,#3d [TRUE] L0001 RFALSE L0001: TEST_ATTR "ship's wheel",#19 [FALSE] L0002 PRINT_RET "Your hands seem unable to touch it again." L0002: SET_ATTR "ship's wheel",#19 SET_ATTR "sandstone recess",#0a PRINT_RET "You try turning the wheel, but it moves only infinitesimally slowly. The door begins to raise the tiniest fraction, and a few grains of sand cascade in slow motion, rattling horribly against each other... It will take forever, and the air is running out..." Routine R0100, 0 locals JE G4c,#03 [FALSE] L0001 JE G4d,G4e [FALSE] L0001 PRINT_RET "It is in one piece." L0001: JE G4c,#02 [FALSE] L0002 CALL_2N R0041 (#2b) L0002: RFALSE Routine R0101, 0 locals JE G4c,#1a [TRUE] L0001 RFALSE L0001: GET_PARENT "golden astrolabe" -> -(SP) JE (SP)+,#01c3 [FALSE] L0002 TEST_ATTR "golden astrolabe",#06 [FALSE] L0003 L0002: PRINT_RET "You catch a fascinating, but all too brief, glimpse of something... which slips out of view as your unsteady hand shakes." L0003: INSERT_OBJ G03,"Out on the Spire" STORE G00,#017e PRINT "Through the golden eyepiece you see, not the moon (for the astrolabe is tilted too low), but a curious, sunlit, grey triangle. Fascinated, you strain closer to the vision... closer... " CALL_2N R0198 (#01) RTRUE Routine R0102, 0 locals JE G4c,#18 [TRUE] L0001 RFALSE L0001: CALL_2N R0041 (#14) RFALSE Routine R0103, 0 locals PRINT_RET "Why not go northeast and look inside?" Routine R0104, 0 locals CALL_2N R0041 (#0e) RFALSE Routine R0105, 0 locals JE G4c,#60 [FALSE] L0001 PRINT_RET "It sounds like a thinly, but enthusiastically, attended football match. There are ragged German chants but only the word "Eumenides" pokes out." L0001: JE G4c,#13 [TRUE] L0002 RFALSE L0002: JE G4d,#03,#0b [FALSE] L0003 PRINT_RET "You step downward in some confusion, but your senses are assailed by some kind of vision, of a ghastly circle of druids watching your every move and plotting, plotting... In horror you turn back." L0003: RFALSE Routine R0106, 0 locals JE G4c,#3d [FALSE] L0005 JE G4d,#b4 [FALSE] L0005 PRINT "You give the revolving door a heave, and it begins to move; but you pause, out of breath, after only a half turn. " GET_PROP "Museum Foyer",#0d -> -(SP) JE (SP)+,#b6 [FALSE] L0001 PUT_PROP "Museum Foyer",#0d,#b8 JUMP L0002 L0001: PUT_PROP "Museum Foyer",#0d,#b6 L0002: GET_PROP "Museum Foyer",#0d -> -(SP) GET_CHILD (SP)+ -> -(SP) [TRUE] L0003 L0003: JE (SP)+,#00 [FALSE] L0004 NEW_LINE RTRUE L0004: PRINT_RET "Interestingly, there's something inside this segment of it." L0005: JE G4c,#13 [FALSE] L0006 JE G4d,#03 [TRUE] L0007 L0006: RFALSE L0007: PRINT "You pass between the steel walls and a light passes over you. Now you know how paper feels in a photocopier" GET_CHILD G03 -> -(SP) [TRUE] L0008 L0008: JE (SP)+,#00 [FALSE] L0009 PRINT ". " RFALSE L0009: PRINT_RET " - in this case, one which jams. Steel barriers appear across the corridor, and you are obliged to withdraw back to the foyer. After a moment, the barriers recede again." Routine R0107, 0 locals JE G4c,#02 [TRUE] L0001 RFALSE L0001: PRINT_RET "The beach ball, a welcome dash of colour in this drab monochrome night, is simply too big, cumbersome and round to get hold of." Routine R0108, 0 locals JE G4c,#3b,#3d [FALSE] L0001 JE G4d,#b7,#b9 [FALSE] L0001 JUMP L0004 L0001: JE G4c,#13 [TRUE] L0002 RFALSE L0002: JE G4d,#04 [FALSE] L0003 PRINT_RET "The door only turns clockwise." L0003: JE G4d,#02 [TRUE] L0004 RFALSE L0004: PRINT_RET "You revolve clockwise with the door, and wind up back adjacent to the foyer." Routine R0109, 0 locals JE G4c,#18 [FALSE] L0001 GET_PARENT G4d -> -(SP) JE (SP)+,#0136 [FALSE] L0001 PRINT_RET "It's too dark to see much inside the cabinet." L0001: RFALSE Routine R0110, 0 locals JE G4c,#43 [TRUE] L0001 RFALSE L0001: TEST_ATTR "glass cabinet",#0a [FALSE] L0002 PRINT_RET "Just how broken do you want it to be?" L0002: PUT_PROP "glass cabinet",#04,S947 SET_ATTR "glass cabinet",#0a CALL_VN R0035 (#c5,#05) PRINT_RET "You smash the glass... noisily. Still, the cabinet is open now." Routine R0111, 0 locals JE G4c,#18 [FALSE] L0001 JE G4d,#0176 [FALSE] L0001 CALL_2N R0041 (#2f) RFALSE L0001: JE G4c,#13 [TRUE] L0002 RFALSE L0002: JE G4d,#03 [FALSE] L0004 TEST_ATTR "parish church",#0a [TRUE] L0003 SET_ATTR "parish church",#0a PUT_PROP "parish church",#02,S948 PRINT "You unbar the door, and let yourself out. " L0003: RFALSE L0004: JE G4d,#0b [FALSE] L0005 TEST_ATTR "Moonstone",#0a [FALSE] L0005 PRINT_RET "To your horror your body partly thins to mist as you climb down through the threshold! Alarmed, you pull back. The underworld beneath the Moonstone, it seems, is not for mortals." L0005: JE G4d,#0b [FALSE] L0006 PRINT_RET "The Moonstone is huge and solid." L0006: RFALSE Routine R0112, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#0b [TRUE] L0002 L0001: RFALSE L0002: PRINT "You slither down a bell rope, noisily... " RFALSE Routine R0113, 0 locals JE G4c,#39,#3b,#59 [FALSE] L0001 JE G4d,#017d [FALSE] L0001 PRINT_RET "You ring an amateurish, jangling peal." L0001: JE G4c,#13 [FALSE] L0002 JE G4d,#0a [FALSE] L0002 PRINT_RET "The ropes are too smooth and noisy to climb." L0002: RFALSE Routine R0114, 0 locals JE G4c,#17 [FALSE] L0001 GET_PARENT "adamantine statue" -> -(SP) JE (SP)+,#0177 [FALSE] L0001 CALL_1N R0115 L0001: RFALSE Routine R0115, 0 locals TEST_ATTR "adamantine skull",#19 [TRUE] L0001 TEST_ATTR "adamantine skull",#01 [TRUE] L0001 PRINT " A headless " JUMP L0002 L0001: PRINT " An " L0002: PRINT "adamantine statue lies prone here, a knight on a tomb" TEST_ATTR "adamantine hand",#19 [TRUE] L0003 TEST_ATTR "adamantine heart",#19 [TRUE] L0003 PRINT_RET "." L0003: TEST_ATTR "adamantine hand",#19 [TRUE] L0004 TEST_ATTR "adamantine hand",#01 [FALSE] L0005 L0004: PRINT " with hand outstretched" L0005: TEST_ATTR "adamantine heart",#19 [FALSE] L0006 PRINT_RET ", a heart in his ribcage. And yet there is no spark of life in him." L0006: PRINT_RET ", heartless and implacable." Routine R0116, 1 local JE G4c,#6c [FALSE] L0001 PRINT_RET "The knight dances a jig with sheer exuberance." L0001: JE G4c,#21 [FALSE] L0003 JE G4d,#0176 [FALSE] L0003 TEST_ATTR "Moonstone",#0a [TRUE] L0003 TEST_ATTR "adamantine knight",#19 [TRUE] L0002 PRINT_RET "The knight understands what is to be done. But he is world-weary and sad, and not yet in your service." L0002: SET_ATTR "Moonstone",#0a PRINT_RET "The knight bows, and effortlessly pulls the enormously heavy Moonstone open. You can almost see ghostly perspiration bead on the ghostly sinews around his adamantine body." L0003: JE G4c,#13 [FALSE] L0004 PRINT_RET "The knight just about understands that he is to go somewhere, but cannot quite comprehend the direction. You'll have to indicate it somehow. (Shame there were no adamantine ears, really.)" L0004: JE G4c,#50 [FALSE] L0020 JE G00,#0175 [FALSE] L0006 JE G4d,#0b [FALSE] L0006 TEST_ATTR "Moonstone",#0a [TRUE] L0005 PRINT_RET "The knight is unable to walk through the Moonstone." L0005: REMOVE_OBJ "adamantine knight" INSERT_OBJ "High Rod of Life","Parish Church" INSERT_OBJ "High Rod of Death","Parish Church" INSERT_OBJ "High Rod of Love","Parish Church" PRINT_RET "The knight strides down into the underworld beneath the Moonstone, to be lost to your sight... forever? For even he has not life force enough to hold together in the mists: his skeleton begins to clatter away to nothing, falling in all directions, his heart, hand and skull returning Somehow to your feet. And they are altering, altering even as you look down into the void..." L0006: STORE L00,#00 JE G00,#0175 [FALSE] L0009 JE G4d,#03 [FALSE] L0007 STORE L00,#016c L0007: JE G4d,#04 [FALSE] L0008 STORE L00,#017a L0008: JE G4d,#05 [FALSE] L0009 STORE L00,#0177 L0009: JE G00,#017a [FALSE] L0010 JE G4d,#05 [FALSE] L0010 STORE L00,#0175 L0010: JE G00,#0177 [FALSE] L0011 JE G4d,#04 [FALSE] L0011 STORE L00,#0175 L0011: JE L00,#00 [FALSE] L0012 PRINT_RET "The knight shakes his head, solemnly." L0012: JE L00,#016c [FALSE] L0013 PRINT_RET "The knight won't leave sacred ground." L0013: INSERT_OBJ "adamantine knight",L00 JE L00,#017a [FALSE] L0014 PUT_PROP "adamantine knight",#04,S949 JUMP L0016 L0014: GET_PARENT "marble rose" -> -(SP) JE (SP)+,#0179 [FALSE] L0015 PUT_PROP "adamantine knight",#04,S950 JUMP L0016 L0015: PUT_PROP "adamantine knight",#04,S951 L0016: PRINT "The knight strides boldly away to the " JE G4d,#02 [FALSE] L0017 PRINT_RET "north." L0017: JE G4d,#03 [FALSE] L0018 PRINT_RET "south." L0018: JE G4d,#04 [FALSE] L0019 PRINT_RET "east." L0019: PRINT_RET "west." L0020: JE G4c,#0f,#08 [FALSE] L0021 JE G4e,#017b [FALSE] L0021 JE G4d,#9b [FALSE] L0021 PRINT_RET "The knight likes the idea but is confused." L0021: PRINT_RET "The knight is confused. Perhaps you were a little rough with the skull." Routine R0117, 0 locals JE G4c,#08 [FALSE] L0003 JE G4d,#0137 [FALSE] L0001 JE G4e,#0183 [FALSE] L0001 INSERT_OBJ G4d,"Island of Pharos" SET_ATTR "smooth round stone",#19 SET_ATTR "smooth round stone",#01 PUT_PROP "rusty iron key",#04,S952 PRINT_RET "The strange stone drops through the grating, and falls on the top step. The iron key mysteriously glues itself to the metal in the stone. It's still out of reach, though." L0001: JE G4e,#0183 [FALSE] L0003 JE G4d,#75 [FALSE] L0002 PRINT_RET "The robot mouse is just the wrong shape." L0002: INSERT_OBJ G4d,"Jetty" CALL_2N R0291 (G4d) PRINT_RET " drops through the grating and bounces down in the darkness." L0003: JE G4c,#13 [FALSE] L0004 JE G4d,#0a [FALSE] L0004 PRINT_RET "The Pharos is unclimbable, alas." L0004: RFALSE Routine R0118, 0 locals JE G4c,#02 [FALSE] L0001 TEST_ATTR "rusty iron key",#19 [TRUE] L0001 PRINT_RET "Reach down the grating as you may, it remains just beyond reach." L0001: RFALSE Routine R0119, 0 locals JE G4c,#02 [FALSE] L0001 TEST_ATTR "smooth round stone",#19 [FALSE] L0001 PRINT_RET "Reach down the grating as you may, it remains just beyond reach." L0001: RFALSE Routine R0120, 0 locals JE G4c,#00 [FALSE] L0001 PRINT_RET "The sepulchral calm of the ocean overwhelms you, and you can only watch and sail." L0001: RFALSE Routine R0121, 0 locals JE G4c,#08,#0f [FALSE] L0001 JE G4e,#017b [FALSE] L0001 PRINT_RET "It would look perfect in Diana's hair, but her head is far too high to reach." L0001: RFALSE Routine R0122, 0 locals JE G4c,#21,#3b,#39 [TRUE] L0001 JE G4c,#02 [FALSE] L0002 L0001: CALL_2N R0041 (#13) PRINT_RET "Although apparently nothing holds down the stone, it is far too heavy and will not budge." L0002: RFALSE Routine R0123, 0 locals JE G4c,#02 [FALSE] L0004 TEST_ATTR G4d,#06 [TRUE] L0004 TEST_ATTR G4d,#19 [TRUE] L0002 TEST_ATTR "old gardeners' gloves",#02 [FALSE] L0001 PRINT_RET "It is searing hot! Even with the gloves on you cannot touch the adamantine." L0001: PRINT_RET "It is searing hot, and you cannot touch the surface!" L0002: JE G3e,#00 [FALSE] L0003 STORE G3e,#01 PRINT_RET "Warning (once only!): the three High Rods seem to balanced extremely delicately on the edge of the pit." L0003: CALL_2N R0040 (#2c) L0004: RFALSE Routine R0124, 0 locals JE G4c,#02 [FALSE] L0001 JE G06,#0e [TRUE] L0001 JE G82,#00 [FALSE] L0001 REMOVE_OBJ "High Rod of Life" SET_ATTR "High Rod of Life",#06 CLEAR_ATTR "High Rod of Life",#01 SET_ATTR "High Rod of Life",#1e REMOVE_OBJ "High Rod of Death" SET_ATTR "High Rod of Death",#06 CLEAR_ATTR "High Rod of Death",#01 SET_ATTR "High Rod of Death",#1e REMOVE_OBJ "High Rod of Love" SET_ATTR "High Rod of Love",#06 CLEAR_ATTR "High Rod of Love",#01 SET_ATTR "High Rod of Love",#1e INSERT_OBJ G4d,G03 CLEAR_ATTR G4d,#1e STORE G82,#01 PRINT_RET "(Interesting choice.) As you take it, you upset the balance and the other two High Rods rattle away down the crystal passageway into the underworld." L0001: RFALSE Routine R0125, 0 locals JE G4c,#67,#08 [FALSE] L0004 JE G4e,#0178 [FALSE] L0004 JE G4d,#017f,#01d1,#0187 [TRUE] L0001 PRINT_RET "That seems incongruous." L0001: JE G4d,#017f [FALSE] L0002 INSERT_OBJ "adamantine hand","West Side Chapel" SET_ATTR "adamantine hand",#01 PRINT_RET "The hand fits very loosely onto the left "wrist" of the adamantine knight." L0002: JE G4d,#01d1 [FALSE] L0003 INSERT_OBJ "adamantine skull","West Side Chapel" SET_ATTR "adamantine skull",#01 PRINT_RET "The skull fits very loosely onto the "neck" of the adamantine knight." L0003: JE G4d,#0187 [FALSE] L0004 REMOVE_OBJ "adamantine heart" SET_ATTR "adamantine heart",#19 PRINT_RET "The heart sits well in the so-empty ribcage of the adamantine knight." L0004: JE G4c,#3d [FALSE] L0006 JE G4d,#01d1,#017f [FALSE] L0006 TEST_ATTR G4d,#01 [FALSE] L0006 JE G4d,#017f [FALSE] L0005 REMOVE_OBJ "adamantine hand" SET_ATTR "adamantine hand",#19 CLEAR_ATTR "adamantine hand",#01 PRINT_RET "The hand screws tightly onto the adamantine knight." L0005: JE G4d,#01d1 [FALSE] L0006 REMOVE_OBJ "adamantine skull" SET_ATTR "adamantine skull",#19 CLEAR_ATTR "adamantine skull",#01 PRINT_RET "The skull screws tightly onto the adamantine knight." L0006: RFALSE Routine R0126, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#07,#09,#08 [FALSE] L0002 L0001: RFALSE L0002: JE G4d,#06 [FALSE] L0003 TEST_ATTR "cloak of many colours",#02 [FALSE] L0003 PRINT "The procession happily accommodates another crazily-dressed loon. " RFALSE L0003: PRINT_RET "The enormous procession, which throngs the great streets of Alexandria, is impossible to push your way through. Better just enjoy the spectacle." Routine R0127, 0 locals JE G4c,#02 [FALSE] L0001 TEST_ATTR "spindle from the globe",#19 [TRUE] L0001 SET_ATTR "spindle from the globe",#19 PUT_PROP "spindle from the globe",#02,S953 PRINT_RET "As you pull out its polar axis, the spindle, the Earth collapses altogether in a possibly symbolic, certainly dusty shambles." L0001: RFALSE Routine R0128, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#02 [TRUE] L0002 L0001: RFALSE L0002: TEST_ATTR "cloak of many colours",#02 [FALSE] L0003 STORE G05,#01 PRINT_RET "Or you could just saunter past them wearing a cloak of many colours. Have it your own way." L0003: PRINT " You tiptoe into the palace, and immediately dart away from view of the many clerks and civil servants manning the machinery of government even at this late hour. Within seconds, you realise you are... " RFALSE Routine R0129, 0 locals JE G4c,#13 [FALSE] L0001 TEST_ATTR "purple sash",#02 [TRUE] L0001 INSERT_OBJ G03,"Outside the Royal Palace of Alexander" STORE G00,#01c0 PRINT_RET "The slave looks you over and sees that you do not bear the mark of an accredited visitor to the Palace. You are discreetly escorted out." L0001: JE G4c,#09 [FALSE] L0002 PRINT_RET "The slave politely holds your arm fast until you desist." L0002: RFALSE Routine R0130, 0 locals Action routine for: "anoppe" JE G00,#01c1 [FALSE] L0001 TEST_ATTR "Lost inside the Palace",#19 [TRUE] L0002 L0001: PRINT_RET "Nothing happens." L0002: CALL_1N R0131 RTRUE Routine R0131, 0 locals PRINT "The slave here, a senior adviser merely disguised as a deaf mute, reacts at once, taking you by the arm and leading you on a convoluted path through the Palace to the... " INSERT_OBJ G03,"Palace Balustrade" STORE G00,#01c3 CALL_2N R0198 (#01) RTRUE Routine R0132, 0 locals JE G4c,#08 [FALSE] L0002 JE G4e,#01c4 [FALSE] L0002 JE G4d,#014c [FALSE] L0001 REMOVE_OBJ "astronomical mounting" INSERT_OBJ "golden astrolabe","Palace Balustrade" SET_ATTR "golden astrolabe",#0f CLEAR_ATTR "golden astrolabe",#06 PUT_PROP "golden astrolabe",#04,S954 INSERT_OBJ "astronomical mounting","Palace Balustrade" PRINT_RET "It fits beautifully, as if designed to go there." L0001: PRINT_RET "Doesn't fit." L0002: JE G4c,#56 [FALSE] L0003 INSERT_OBJ G03,"Warehouses and Port" STORE G00,#01c5 PRINT_RET "You dive off the balcony in a beautifully graceful motion, plunging perfectly into the icy and (fortunately) deep waters below. You then struggle to the surface in a panicky, floundering motion, and finally wash up out of the water in a clumsy, ridiculous one." L0003: RFALSE Routine R0133, 0 locals Action routine for: "anoint NOUN" JE G00,#01b3 [TRUE] L0001 PRINT_RET "You have no oil." L0001: JE G4d,G03 [FALSE] L0002 TEST_ATTR "mummy case",#19 [FALSE] L0003 L0002: PRINT_RET "That hardly seems worthwhile." L0003: SET_ATTR "mummy case",#19 PRINT_RET "You smear some oil on your head, making a mental note to wash your hair in the morning. It is the least sacred sacred ritual you have ever taken part in." Routine R0134, 0 locals Action routine for: "float" "float away" GET_PARENT G03 -> -(SP) JE (SP)+,#0186 [TRUE] L0001 PRINT_RET "You are not in any suitable means of transport." L0001: GET_PARENT "skiff" -> -(SP) JE (SP)+,#8d [FALSE] L0002 PRINT_RET "The skiff is absolutely becalmed." L0002: TEST_ATTR "skiff",#19 [FALSE] L0003 PRINT_RET "That seems to be happening whether you like it or not." L0003: SET_ATTR "skiff",#19 INSERT_OBJ "skiff","Harbour Mouth" STORE G00,#0188 PRINT "You set sail, and a light breeze propels your skiff... " CALL_2N R0198 (#01) RTRUE Routine R0135, 1 local JE G4d,#01c7 [FALSE] L0004 JE G4c,#02 [FALSE] L0001 PRINT_RET "The sailor covers it with his hand. But he looks the type who's never averse to a game." L0001: JE G4c,#18 [FALSE] L0002 PRINT "Each side has a word inscribed on it. The word on top is "" GET_PROP "inscribed die",#15 -> -(SP) CALL_2N R0136 ((SP)+) PRINT_RET ""." L0002: JE G4c,#09 [FALSE] L0004 RANDOM #06 -> L00 TEST_ATTR "inscribed die",#22 [FALSE] L0003 STORE L00,#06 L0003: SET_ATTR "gambling sailor",#19 PUT_PROP "inscribed die",#15,L00 PRINT "You throw a "" CALL_2N R0136 (L00) PRINT_RET "", whatever that means." L0004: RFALSE Routine R0136, 1 local JE L00,#01 [FALSE] L0001 PRINT "thu" L0001: JE L00,#02 [FALSE] L0002 PRINT "zal" L0002: JE L00,#03 [FALSE] L0003 PRINT "si" L0003: JE L00,#04 [FALSE] L0004 PRINT "ca" L0004: JE L00,#05 [FALSE] L0005 PRINT "mach" L0005: JE L00,#06 [FALSE] L0006 PRINT "huth" L0006: RTRUE Routine R0137, 0 locals JE G4c,#17,#46,#01 [FALSE] L0001 RFALSE L0001: JE G4c,#4e [FALSE] L0002 RFALSE L0002: JE G4c,#13 [TRUE] L0003 PRINT_RET "There's very little room, and the air is running out." L0003: TEST_ATTR "mummy case",#19 [FALSE] L0004 JE G4d,#0a [TRUE] L0005 L0004: PRINT_RET "There's nowhere to go." L0005: CALL_2N R0040 (#29) INSERT_OBJ "adamantine skull",G03 PRINT " Your spirit rises, prepared as it was for the afterlife, and diffuses through the solid gold of the coffin by sheer effort of will, finally beginning to recoalesce. You stagger, confused, through dark caves until you finally come to light, clutching something solid... " RFALSE Routine R0138, 0 locals JE G4c,#3d,#3e [FALSE] L0005 TEST_ATTR G4d,#02 [FALSE] L0001 PRINT_RET "Not while you're wearing it." L0001: GET_PARENT G4d -> -(SP) JE (SP)+,G03 [TRUE] L0002 PRINT_RET "You need to be holding it." L0002: JE G4d,#018e [FALSE] L0003 INSERT_OBJ "grey cloak",G03 REMOVE_OBJ "cloak of many colours" STORE G71,#018f JUMP L0004 L0003: INSERT_OBJ "cloak of many colours",G03 REMOVE_OBJ "grey cloak" STORE G71,#018e L0004: PRINT_RET "You turn the cloak inside out." L0005: RFALSE Routine R0139, 0 locals JE G4c,#08 [FALSE] L0003 JE G4e,#018d [FALSE] L0003 JE G4d,#0159 [TRUE] L0001 PRINT_RET "Doesn't seem to fit." L0001: TEST_ATTR "unexciting tombstone",#0a [FALSE] L0002 PRINT_RET "What?" L0002: PUT_PROP "unexciting tombstone",#02,S955 SET_ATTR "unexciting tombstone",#0a CALL_2N R0041 (#19) INSERT_OBJ "gleaming amber gem","unexciting tombstone" PRINT_RET "The amber fits perfectly into the mouth of the stone face, and there is a heaving from beneath your feet... you topple over backward, flailing wildly. When you get up you can see a short flight of steps leading down. You have opened the tomb!" L0003: RFALSE Routine R0140, 0 locals JE G4c,#3b,#39 [FALSE] L0001 PRINT_RET "It is made of stone, you know." L0001: JE G4c,#3d [FALSE] L0005 GET_PARENT G03 -> -(SP) JE G00,(SP)+ [TRUE] L0002 PRINT_RET "You can't reach from the couch." L0002: TEST_ATTR "marble wall",#0a [FALSE] L0003 CLEAR_ATTR "marble wall",#0a JUMP L0004 L0003: SET_ATTR "marble wall",#0a L0004: CALL_2N R0040 (#27) PRINT_RET "You twist the nose, and before it springs back there is a rumbling of stone from below." L0005: RFALSE Routine R0141, 0 locals JE G4c,#13 [FALSE] L0003 JE G4d,#05 [FALSE] L0003 PRINT "The spirits of the sphinxes prowl across the doorway, paws raised, and then lunge towards you. Their claws rake across your skin, tearing off a layer, unwrapping you in a curiously painless way... and you wake... " GET_PROP "The Spirit World",#15 -> -(SP) JE (SP)+,#01 [FALSE] L0001 INSERT_OBJ G03,"wooden couch" STORE G00,#0198 JUMP L0002 L0001: GET_PROP "The Spirit World",#15 -> -(SP) SUB (SP)+,#01 -> -(SP) PUT_PROP "The Spirit World",#15,(SP)+ INSERT_OBJ G03,"wooden couch" REMOVE_OBJ "Napoleonic officers" L0002: CALL_2N R0198 (#01) RTRUE L0003: JE G4c,#13 [FALSE] L0005 GET_PROP "The Spirit World",#15 -> -(SP) JE (SP)+,#04 [FALSE] L0004 PRINT_RET "You somehow cannot leave the tomb. Your spirit is anchored still to your body, sleeping two thousand years before." L0004: PRINT_RET "The tomb is sealed, apparently forever." L0005: JE G4c,#02,#09,#01 [FALSE] L0006 PRINT_RET "You are beyond worldly things." L0006: RFALSE Routine R0142, 1 local JE G4c,#17 [FALSE] L0004 GET_PROP "The Spirit World",#15 -> L00 JE L00,#01 [FALSE] L0001 PRINT " The tomb seems older now, weighed under with centuries. " L0001: JE L00,#02 [FALSE] L0002 PRINT " The tomb swelters now, a thousand years old. " L0002: JE L00,#03 [FALSE] L0003 PRINT " The tomb is beautifully well-preserved, but it seems quite ancient. " L0003: JE L00,#04 [FALSE] L0004 PRINT " By now the tomb might be two thousand years old. " GET_PARENT "Napoleonic officers" -> -(SP) JE (SP)+,#019f [FALSE] L0004 PRINT " And at last it has been opened. " L0004: RFALSE Routine R0143, 0 locals JE G4c,#13 [FALSE] L0002 JE G4d,#05 [FALSE] L0002 GET_PARENT G03 -> -(SP) JE (SP)+,G00 [TRUE] L0001 PRINT_RET "First get up." L0001: PRINT "Slightly to your surprise, the sphinxes make no effort to stop you. " L0002: RFALSE Routine R0144, 1 local GET_PARENT G03 -> -(SP) JE (SP)+,#01a5 [FALSE] L0002 JE G4c,#00 [FALSE] L0001 PRINT "(That's a relief.) " RFALSE L0001: JE G4c,#23 [TRUE] L0002 PRINT "(You are so distracted that common sense takes over and you clamber out of the mummy.) " GET_PARENT "mummy case" -> -(SP) INSERT_OBJ G03,(SP)+ GET_PARENT G03 -> G00 L0002: JE G4c,#13 [FALSE] L0004 JE G4d,#02,#06 [FALSE] L0004 TEST_ATTR "second socket",#19 [TRUE] L0003 INSERT_OBJ "green oak quarterstaff","Quite an Undertaking" SET_ATTR "second socket",#19 L0003: PRINT_RET "The passage seems endless, and you are obliged to retreat before the air runs out." L0004: JE G4c,#23 [FALSE] L0007 JE G4d,#01a5 [FALSE] L0007 TEST_ATTR G4d,#0a [FALSE] L0007 GET_PARENT G03 -> -(SP) JE (SP)+,#01a5 [FALSE] L0006 JE G3d,#00 [FALSE] L0005 STORE G3d,#01 PRINT_RET "Are you... absolutely sure about that? [You won't be warned again.]" L0005: PRINT "The lid slams down on you with a very final sound indeed. *** You have ... But - something more is happening. The coffin's delicate balance has been altered, and it is sliding, slipping away down the square passage, endlessly, endlessly... And even that is not the end, for you suddenly crash into buffers at one end. What a lucky escape, you think... for a moment... " INSERT_OBJ G03,"Buried Alive" STORE G00,#01d0 CALL_2N R0198 (#01) RTRUE L0006: PRINT_RET "No, don't. Once shut it would never open again." L0007: JE G4c,#04 [FALSE] L0009 JE G4d,#01a5 [FALSE] L0009 TEST_ATTR "mummy case",#0a [TRUE] L0008 PRINT_RET "It's closed." L0008: PRINT "(You can't help feeling that someone has planned all this... and it isn't you.) " L0009: JE G4c,#08 [FALSE] L0014 JE G4e,#01a6,#01a7,#01a8 [FALSE] L0014 JE G4d,#013b [FALSE] L0013 PUT_PROP "model golden sceptre",#15,G4e JE G4e,#01a6 [FALSE] L0010 PUT_PROP "model golden sceptre",#04,S956 L0010: JE G4e,#01a7 [FALSE] L0011 PUT_PROP "model golden sceptre",#04,S957 L0011: JE G4e,#01a8 [FALSE] L0012 PUT_PROP "model golden sceptre",#04,S958 L0012: INSERT_OBJ "model golden sceptre","Quite an Undertaking" CLEAR_ATTR "model golden sceptre",#06 PRINT_RET "It fits perfectly (wouldn't you know it)." JUMP L0014 L0013: PRINT_RET "Doesn't seem to fit, quite." L0014: JE G4c,#02 [FALSE] L0015 JE G4e,#013b [FALSE] L0015 PUT_PROP "model golden sceptre",#15,#00 L0015: JE G4c,#18 [FALSE] L0016 JE G4d,#01a6,#01a7,#01a8 [FALSE] L0016 PRINT "Above " CALL_2N R0290 (G4d) PRINT " is the single word "" GET_PROP G4d,#15 -> -(SP) CALL_2N R0136 ((SP)+) PRINT_RET ""." L0016: JE G4c,#3d [FALSE] L0022 JE G4d,#013b [FALSE] L0022 GET_PROP G4d,#15 -> -(SP) JE (SP)+,#00 [TRUE] L0022 TEST_ATTR "mummy case",#0a [FALSE] L0017 CLEAR_ATTR "mummy case",#0a PRINT "With a crash, the coffin slams shut. " L0017: PRINT "You crank the sceptre round, lose control for a moment, and some primitive mechanism spins. The word comes to rest as "" RANDOM #06 -> L00 CALL_2N R0136 (L00) PRINT "". " GET_PROP G4d,#15 -> -(SP) PUT_PROP (SP)+,#15,L00 JE G1d,#01 [FALSE] L0018 PUT_PROP "first socket",#15,#03 PUT_PROP "second socket",#15,#06 PUT_PROP "third socket",#15,#01 L0018: GET_PROP "first socket",#15 -> -(SP) JE (SP)+,#03 [FALSE] L0019 GET_PROP "second socket",#15 -> -(SP) JE (SP)+,#06 [FALSE] L0019 GET_PROP "third socket",#15 -> -(SP) JE (SP)+,#01 [TRUE] L0020 L0019: GET_PROP "first socket",#15 -> -(SP) JE (SP)+,#01 [FALSE] L0021 GET_PROP "second socket",#15 -> -(SP) JE (SP)+,#06 [FALSE] L0021 GET_PROP "third socket",#15 -> -(SP) JE (SP)+,#03 [FALSE] L0021 L0020: SET_ATTR "mummy case",#0a PUT_PROP "mummy case",#04,S959 PRINT_RET " With an awful groaning noise, the coffin lid heaves open. And it is... Empty!" L0021: RTRUE L0022: RFALSE Routine R0145, 5 locals JE G4c,#6f [FALSE] L0001 PRINT_RET "The mouse bleeps with happy pride. That's one thing it really knows how to do." L0001: JE G4c,#13 [TRUE] L0002 PRINT_RET "The mouse emits a querulous, unhappy bleep." L0002: JE G4d,#06 [FALSE] L0003 STORE G4d,#0a L0003: JE G4d,#07 [FALSE] L0004 STORE G4d,#0a L0004: JE G4d,#08 [FALSE] L0005 STORE G4d,#0a L0005: JE G4d,#09 [FALSE] L0006 STORE G4d,#0a L0006: JE G4d,#0b [FALSE] L0007 STORE G4d,#0a L0007: JE G4d,#0a [FALSE] L0008 PRINT_RET "The mouse bleeps with annoyance." L0008: STORE L00,#75 GET_PARENT L00 -> L00 JE L00,#76 [FALSE] L0011 JE G4d,#02 [FALSE] L0009 STORE L01,#70 JUMP L0025 L0009: JE G4d,#05 [FALSE] L0010 STORE L01,#77 STORE G0f,#08 STORE G10,#03 JUMP L0025 L0010: JUMP L0030 L0011: JE L00,#79 [FALSE] L0013 JE G4d,#04 [FALSE] L0012 STORE L01,#70 JUMP L0025 L0012: JUMP L0030 L0013: JE L00,#70 [FALSE] L0016 JE G4d,#05 [FALSE] L0014 STORE L01,#79 JUMP L0025 L0014: JE G4d,#03 [FALSE] L0015 STORE L01,#76 JUMP L0025 L0015: JUMP L0030 L0016: JE L00,#77 [FALSE] L0024 JE G0f,#08 [FALSE] L0017 JE G10,#03 [FALSE] L0017 JE G4d,#04 [FALSE] L0017 STORE L01,#76 JUMP L0025 L0017: JE G4d,#02 [FALSE] L0018 STORE L03,G0f SUB G10,#01 -> L04 L0018: JE G4d,#04 [FALSE] L0019 ADD G0f,#01 -> L03 STORE L04,G10 L0019: JE G4d,#03 [FALSE] L0020 STORE L03,G0f ADD G10,#01 -> L04 L0020: JE G4d,#05 [FALSE] L0021 SUB G0f,#01 -> L03 STORE L04,G10 L0021: CALL_VS R0392 (L03,L04) -> -(SP) JE (SP)+,#01 [FALSE] L0022 PRINT_RET "From somewhere inside the hole, you hear a disconsolate bleep." L0022: STORE G0f,L03 STORE G10,L04 JE G0f,#04 [FALSE] L0023 JE G10,#01 [FALSE] L0023 STORE L00,#78 GET_PARENT L00 -> L00 JE L00,#77 [FALSE] L0023 STORE L00,#78 REMOVE_OBJ L00 INSERT_OBJ L00,"robot mouse" CALL_2N R0041 (#02) PRINT_RET "From somewhere inside the hole, you hear the spinning of tiny wheels, followed by an excitable high-pitched beep and a dull clanging noise." L0023: PRINT_RET "From somewhere inside the hole, you hear tiny wheels spin." L0024: PRINT_RET "The mouse wheels spin, but can't get a good enough grip to move." L0025: STORE L02,L00 STORE L00,#75 REMOVE_OBJ L00 INSERT_OBJ L00,L01 SET_ATTR "robot mouse",#06 JE G00,L02 [FALSE] L0027 JE L01,#77 [FALSE] L0026 CALL_2N R0041 (#01) PRINT_RET "The mouse just squeezes through the hole, and disappears from view. Unfortunately you can't very easily talk to it now..." L0026: JE L01,#77 [TRUE] L0027 PRINT_RET "The mouse runs off as ordered." L0027: JE G00,L01 [FALSE] L0029 PRINT "The mouse runs back out of the hole, looking dustier but none the worse for its adventure" STORE L00,#78 GET_PARENT L00 -> L00 JE L00,#75 [TRUE] L0028 PRINT_RET "." L0028: STORE L00,#78 REMOVE_OBJ L00 INSERT_OBJ L00,"Cellars South" CALL_2N R0041 (#03) PRINT_RET ", and then almost looks proud as a magnet cuts out and something metal drops off the underside of the mouse onto the floor. The lost key is found!" L0029: RTRUE L0030: PRINT_RET "The mouse emits a low-pitched bleep." Routine R0146, 3 locals JE G4c,#18 [TRUE] L0001 RFALSE L0001: PRINT "The layout is roughly as follows: " CALL_1N R0171 STORE L00,#00 DEC L00 L0002: JL L00,#06 [FALSE] L0007 INC L00 PRINT " " STORE L01,#00 DEC L01 L0003: JL L01,#08 [FALSE] L0006 INC L01 CALL_VS R0391 (L01,L00) -> L02 JE L02,#00 [FALSE] L0004 PRINT "..." L0004: JE L02,#01 [FALSE] L0005 PRINT_CHAR '#' PRINT_CHAR '#' PRINT_CHAR '#' L0005: JUMP L0003 L0006: NEW_LINE JUMP L0002 L0007: CALL_1N R0172 RTRUE Routine R0147, 0 locals JE G4c,#3d [FALSE] L0002 JE G23,#00 [FALSE] L0001 STORE G23,#01 CALL_2N R0041 (#0c) PRINT_RET "Is it really wise to go meddling with things here? Well, only one way to find out. Don't expect a second warning!" L0001: STORE G05,#04 STORE G01,#00 SUB G01,#63 -> G01 PRINT_RET "Mmm. On the whole, it's probably best not to alter one of the fundamental constants of the physical universe while still inside it. On the bright side, for once you are unlikely to get the blame." L0002: RFALSE Routine R0148, 0 locals JE G4c,#67,#40 [FALSE] L0001 STORE G4c,#3d L0001: JE G4c,#3d [TRUE] L0002 RFALSE L0002: TEST_ATTR "steel wrench",#19 [FALSE] L0003 PRINT_RET "The joint is fairly safe already." L0003: GET_PARENT "steel wrench" -> -(SP) JE (SP)+,G03 [TRUE] L0004 PRINT_RET "With your bare hands, you are unable to tighten the joint." L0004: SET_ATTR "steel wrench",#19 CALL_2N R0040 (#0d) CLEAR_ATTR "book of Twenties poetry",#01 SET_ATTR "book of Twenties poetry",#06 CLEAR_ATTR "romantic novel",#01 SET_ATTR "romantic novel",#06 PRINT_RET "You tighten the joint with the wrench, just enough for the books to fall away without a gushing explosion of water." Routine R0149, 0 locals JE G4c,#18 [FALSE] L0001 JUMP L0002 L0001: JE G4c,#1a [TRUE] L0002 RFALSE L0002: JG G1b,#07 [FALSE] L0003 PRINT_RET "Four men in druidic furs are standing on the corners of the mosaic, in some kind of sinister conference. This old villa must be some kind of rendezvous point. Between the men a bluish stone rests on the mosaic floor." L0003: PRINT_RET "You see across the mosaic floor of the moonlit atrium." Routine R0150, 2 locals LOADW #00,#0c -> -(SP) STOREW (SP)+,L00,L01 RTRUE Routine R0151, 2 locals REMOVE_OBJ " " STORE L01,#00 DEC L01 L0001: JL L01,#1f [FALSE] L0002 INC L01 CLEAR_ATTR " ",L01 JUMP L0001 L0002: PUT_PROP " ",#03,S960 PUT_PROP " ",#04,#00 PUT_PROP " ",#02,#00 PUT_PROP " ",#05,#ffff PUT_PROP " ",#06,#ffff GET_PROP_ADDR " ",#01 -> L00 STOREW L00,#00,"zzzzzzzzz" STOREW L00,#01,"zzzzzzzzz" STOREW L00,#02,"zzzzzzzzz" STOREW L00,#03,"zzzzzzzzz" INSERT_OBJ " ",G00 JE G00,#91 [FALSE] L0003 CALL_VN R0150 (#00,#0107) PUT_PROP " ",#02,S961 SET_ATTR " ",#0e SET_ATTR " ",#1f STOREW L00,#00,"mosaic" L0003: JE G00,#2e [FALSE] L0004 CALL_VN R0150 (#00,#0109) PUT_PROP " ",#02,S962 SET_ATTR " ",#0e STOREW L00,#00,"furniture" L0004: JE G00,#7b [FALSE] L0005 CALL_VN R0150 (#00,#010c) SET_ATTR " ",#0e STOREW L00,#00,"infinity" STOREW L00,#01,"lemniscus" STOREW L00,#02,"symbol" L0005: JE G00,#8f [FALSE] L0006 CALL_VN R0150 (#00,#010f) SET_ATTR " ",#0e STOREW L00,#00,"plane" STOREW L00,#01,"tree" STOREW L00,#02,"family" L0006: JE G00,#98 [FALSE] L0007 CALL_VN R0150 (#00,#0113) SET_ATTR " ",#0e STOREW L00,#00,"maze" STOREW L00,#01,"layout" PUT_PROP " ",#05,#4fb7 L0007: JE G00,#ae [FALSE] L0008 CALL_VN R0150 (#00,#0117) SET_ATTR " ",#0e STOREW L00,#00,"folly" STOREW L00,#01,"tower" STOREW L00,#02,"bricks" PUT_PROP " ",#02,S963 L0008: JE G00,#ac [FALSE] L0009 CALL_VN R0150 (#00,#011b) SET_ATTR " ",#0e STOREW L00,#00,"plaque" PUT_PROP " ",#02,S964 L0009: JE G00,#a1 [FALSE] L0010 CALL_VN R0150 (#00,#011d) SET_ATTR " ",#0f STOREW L00,#00,"tomb" STOREW L00,#01,"tombstone" STOREW L00,#02,"stone" PUT_PROP " ",#04,S965 PUT_PROP " ",#02,S966 L0010: JE G00,#a2 [FALSE] L0012 CALL_VN R0150 (#00,#0120) SET_ATTR " ",#0f STOREW L00,#00,"staircase" STOREW L00,#01,"aluminium" PUT_PROP " ",#04,S967 PUT_PROP " ",#02,S968 JE G26,#00 [FALSE] L0011 REMOVE_OBJ " " L0011: CLEAR_ATTR "metal wall",#19 L0012: JE G00,#cc [FALSE] L0022 CALL_VN R0150 (#00,#0127) SET_ATTR " ",#0f SET_ATTR " ",#1f STOREW L00,#00,"impressio" STOREW L00,#01,"painting" STOREW L00,#02,"mural" PUT_PROP " ",#02,S969 RANDOM #0a -> L01 JE L01,#01 [FALSE] L0013 PUT_PROP " ",#04,S970 L0013: JE L01,#02 [FALSE] L0014 PUT_PROP " ",#04,S971 L0014: JE L01,#03 [FALSE] L0015 PUT_PROP " ",#04,S972 L0015: JE L01,#04 [FALSE] L0016 PUT_PROP " ",#04,S973 L0016: JE L01,#05 [FALSE] L0017 PUT_PROP " ",#04,S974 L0017: JE L01,#06 [FALSE] L0018 PUT_PROP " ",#04,S975 L0018: JE L01,#07 [FALSE] L0019 PUT_PROP " ",#04,S976 L0019: JE L01,#08 [FALSE] L0020 PUT_PROP " ",#04,S977 L0020: JE L01,#09 [FALSE] L0021 PUT_PROP " ",#04,S978 L0021: JE L01,#0a [FALSE] L0022 PUT_PROP " ",#04,S979 L0022: JE G00,#90 [FALSE] L0024 SET_ATTR " ",#0f TEST_ATTR "Lawn Ornaments",#19 [FALSE] L0023 CALL_VN R0150 (#00,#012f) STOREW L00,#00,"ancient" STOREW L00,#01,"well" PUT_PROP " ",#04,S980 PUT_PROP " ",#02,S981 SET_ATTR " ",#08 SET_ATTR " ",#0a JUMP L0024 L0023: CALL_VN R0150 (#00,#013a) STOREW L00,#00,"plaster" STOREW L00,#01,"statuette" STOREW L00,#02,"bust" STOREW L00,#03,"statue" PUT_PROP " ",#04,S982 PUT_PROP " ",#02,S983 L0024: JE G00,#38 [FALSE] L0025 SET_ATTR " ",#0f CALL_VN R0150 (#00,#0140) STOREW L00,#00,"sepia" STOREW L00,#01,"photo" STOREW L00,#02,"photograp" PUT_PROP " ",#03,S984 PUT_PROP " ",#04,S985 PUT_PROP " ",#02,S986 L0025: JE G00,#a3 [FALSE] L0026 SET_ATTR " ",#0f CALL_VN R0150 (#00,#0146) STOREW L00,#00,"contrapti" STOREW L00,#01,"panel" STOREW L00,#02,"iron" STOREW L00,#03,"grid" PUT_PROP " ",#04,S987 L0026: JE G00,#aa [FALSE] L0027 SET_ATTR " ",#0f CALL_VN R0150 (#00,#0151) STOREW L00,#00,"large" STOREW L00,#01,"dial" PUT_PROP " ",#04,S988 PUT_PROP " ",#02,S989 PUT_PROP " ",#05,#4fd2 L0027: JE G00,#ca [FALSE] L0028 REMOVE_OBJ " " L0028: JE G00,#df [FALSE] L0029 SET_ATTR " ",#0e CALL_VN R0150 (#00,#0154) STOREW L00,#00,"table" L0029: JE G00,#e6 [FALSE] L0030 SET_ATTR " ",#0e SET_ATTR " ",#07 SET_ATTR " ",#0b SET_ATTR " ",#16 SET_ATTR " ",#15 CALL_VN R0150 (#00,#0158) STOREW L00,#00,"door" STOREW L00,#01,"window" PUT_PROP " ",#02,S990 PUT_PROP " ",#13,#e6 PUT_PROP " ",#08,#09 L0030: JE G00,#3f [FALSE] L0031 SET_ATTR " ",#01 SET_ATTR " ",#0f CALL_VN R0150 (#00,#015c) STOREW L00,#00,"water" STOREW L00,#01,"pipe" STOREW L00,#02,"joint" STOREW L00,#03,"pipes" PUT_PROP " ",#02,S991 PUT_PROP " ",#05,#5008 L0031: JE G00,#0115 [FALSE] L0032 SET_ATTR " ",#0e CALL_VN R0150 (#00,#015f) STOREW L00,#00,"hypocaust" STOREW L00,#01,"vents" PUT_PROP " ",#05,#5033 L0032: JE G00,#fe [FALSE] L0033 SET_ATTR " ",#0e SET_ATTR " ",#1f CALL_VN R0150 (#00,#0164) STOREW L00,#00,"greek" STOREW L00,#01,"frieze" PUT_PROP " ",#02,S992 L0033: JE G00,#89 [FALSE] L0034 SET_ATTR " ",#04 SET_ATTR " ",#05 CALL_VN R0150 (#00,#0169) STOREW L00,#00,"druid" PUT_PROP " ",#04,S993 TEST_ATTR "Shrine of the Bear",#19 [FALSE] L0034 REMOVE_OBJ " " L0034: RTRUE Routine R0152, 0 locals Action routine for: "pretty" STORE G2a,#01 CALL_2N R0041 (#05) STORE G41,#01 PRINT_RET ""Curses" is now in its (supposedly) "pretty" mode." Routine R0153, 0 locals Action routine for: "plain" STORE G2a,#00 STORE G41,#01 PRINT_RET ""Curses" is now in its "plain" printing mode." Routine R0154, 0 locals Action routine for: "notify" "notify on" STORE G2b,#01 PRINT_RET ""Curses" now notifies you of important changes in your score." Routine R0155, 0 locals Action routine for: "notify off" STORE G2b,#00 PRINT_RET ""Curses" will not now notify you of changes in your score." Routine R0156, 0 locals Action routine for: "notify full" STORE G2b,#02 PRINT_RET ""Curses" now notifies you of all changes in your score." Routine R0157, 1 local ERASE_WINDOW #ffff PRINT " " LOADB #00,#21 -> L00 JE L00,#00 [FALSE] L0001 STORE L00,#50 L0001: SUB L00,#32 -> -(SP) DIV (SP)+,#02 -> L00 SET_TEXT_STYLE BOLDFACE LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ STORE Gef,L00 JL Gef,#01 [TRUE] L0003 L0002: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0002 L0003: PRINT " Welcome to CURSES " SET_TEXT_STYLE ROMAN PRINT " " STORE Gef,L00 JL Gef,#01 [TRUE] L0005 L0004: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0004 L0005: PRINT " [Please press SPACE to begin.] " LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ RANDOM #03 -> L00 JE L00,#01 [FALSE] L0006 STOREW G80,#00,S994 STOREW G80,#01,S995 STOREW G80,#02,S996 STOREW G80,#03,S997 STOREW G80,#04,#00 STOREW G80,#05,S998 CALL_VS R0044 (#06,#31,G80) -> Gef L0006: JE L00,#02 [FALSE] L0007 STOREW G80,#00,S999 STOREW G80,#01,S1000 STOREW G80,#02,#00 STOREW G80,#03,S1001 STOREW G80,#04,S1002 CALL_VS R0044 (#05,#1f,G80) -> Gef L0007: JE L00,#03 [FALSE] L0008 STOREW G80,#00,S1003 STOREW G80,#01,S1004 STOREW G80,#02,S1005 STOREW G80,#03,#00 STOREW G80,#04,S1006 CALL_VS R0044 (#05,#2c,G80) -> Gef L0008: READ_CHAR #01,#00,#00 -> L00 JE L00,#20,#0a,#0d [FALSE] L0008 ERASE_WINDOW #ffff RTRUE Routine R0158, 0 locals RTRUE Routine R0159, 2 locals LOADB #00,#21 -> L00 JE L00,#00 [FALSE] L0001 STORE L00,#50 L0001: LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ JE G2a,#01 [FALSE] L0002 SPLIT_WINDOW #02 JUMP L0003 L0002: SPLIT_WINDOW #01 L0003: BUFFER_MODE #00 SET_WINDOW #01 SET_TEXT_STYLE REVERSE JG G05,#00 [FALSE] L0004 STORE G41,#01 L0004: JE G41,#01 [FALSE] L0008 SET_CURSOR #01,#01 STORE Gef,L00 JL Gef,#01 [TRUE] L0006 L0005: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0005 L0006: JE G2a,#01 [FALSE] L0008 SET_CURSOR #02,#01 STORE Gef,L00 JL Gef,#01 [TRUE] L0008 L0007: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0007 L0008: JE G41,#01 [TRUE] L0009 JE G42,G00 [TRUE] L0012 L0009: SET_CURSOR #01,#02 PRINT_OBJ G00 STORE Gef,#14 JL Gef,#01 [TRUE] L0011 L0010: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0010 L0011: STORE G42,G00 STORE G41,#01 L0012: JE G2a,#00 [FALSE] L0013 SUB L00,#0f -> L01 SET_CURSOR #01,L01 STORE G44,G01 PRINT_NUM G01 PRINT "/" PRINT_NUM G02 PRINT " " L0013: JE G2a,#01 [FALSE] L0042 JE G41,#01 [FALSE] L0016 SUB L00,#23 -> L01 SET_CURSOR #01,L01 JG G05,#00 [FALSE] L0014 PRINT "Final score: " JUMP L0015 L0014: PRINT "Score: " L0015: JUMP L0017 L0016: SUB L00,#1c -> L01 SET_CURSOR #01,L01 L0017: JE G41,#01 [TRUE] L0018 JE G44,G01 [TRUE] L0019 L0018: PRINT_NUM G01 JG G05,#00 [FALSE] L0019 PRINT "/550" L0019: SET_CURSOR #02,L01 JE G41,#01 [FALSE] L0020 PRINT "Turns: " L0020: PRINT_NUM G02 JE G41,#01 [TRUE] L0021 JE G43,G06 [TRUE] L0042 L0021: STORE G43,G06 SUB L00,#14 -> L01 SET_CURSOR #02,L01 JE G06,#01 [FALSE] L0022 PRINT " June 3rd, 1993" L0022: JE G06,#02 [FALSE] L0023 PRINT " October 5th, 1922" L0023: JE G06,#03 [FALSE] L0024 PRINT "October 31st, 1988" L0024: JE G06,#05 [FALSE] L0025 PRINT " June 3rd, 1993" L0025: JE G06,#06 [FALSE] L0026 PRINT " March 14th, 1808" L0026: JE G06,#07 [FALSE] L0027 PRINT " Sixth century AD" L0027: JE G06,#09 [FALSE] L0028 PRINT " June 3rd, 1993" L0028: JE G06,#0b [FALSE] L0029 PRINT " Winter of 275 BC" L0029: JE G06,#0c [FALSE] L0030 PRINT " June 3rd, 1993" L0030: JE G06,#0a,#0d,#04 [FALSE] L0031 PRINT " " L0031: SET_CURSOR #02,#02 JE G06,#01 [FALSE] L0032 PRINT "(in Meldrew Hall) " L0032: JE G06,#02 [FALSE] L0033 PRINT "(in the Unreal City) " L0033: JE G06,#03 [FALSE] L0034 PRINT "(Hamburg by night) " L0034: JE G06,#04 [FALSE] L0035 PRINT "(in the Tarot box) " L0035: JE G06,#05 [FALSE] L0036 PRINT "(in the gardens) " L0036: JE G06,#06 [FALSE] L0037 PRINT "(in the gardens) " L0037: JE G06,#07 [FALSE] L0038 PRINT "(in the Master Game) " L0038: JE G06,#08,#0a [FALSE] L0039 PRINT "(dreaming?) " L0039: JE G06,#09 [FALSE] L0040 PRINT "(in the catacombs) " L0040: JE G06,#0b [FALSE] L0041 PRINT "(in Alexandria) " L0041: JE G06,#0c [FALSE] L0042 PRINT "(northeast of the House)" L0042: SET_TEXT_STYLE ROMAN BUFFER_MODE #01 SET_CURSOR #01,#01 SET_WINDOW #00 LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ STORE G41,#00 RTRUE Routine R0160, 1 local Action routine for: "score" JE G05,#00 [FALSE] L0014 JE G00,#a8 [FALSE] L0001 PRINT "Inside the golden orb. " JUMP L0013 L0001: JE G06,#01 [FALSE] L0002 PRINT "This is the afternoon of June 3rd, 1993, and you are in Meldrew Hall. " L0002: JE G06,#02 [FALSE] L0003 PRINT "It is early morning on October 5th, 1922, and you are in the Unreal City. " L0003: JE G06,#03 [FALSE] L0004 PRINT "It is nearly midnight on October 31st, 1988, and you are in a museum in Hamburg. " L0004: JE G06,#04 [FALSE] L0005 PRINT "You are passing among the strange, unearthly world of the Tarot box. " L0005: JE G06,#05 [FALSE] L0006 PRINT "It is the afternoon of June 3rd, 1993, and you are in the gardens. " L0006: JE G06,#06 [FALSE] L0007 PRINT "It is about noon on March 14th, 1808, and you are in the gardens. " L0007: JE G06,#07 [FALSE] L0008 PRINT "It is some time in the sixth century A.D., and you are in the Master Game. " L0008: JE G06,#08,#0a [FALSE] L0009 PRINT "Time seems to have no meaning, and you are dreaming. " L0009: JE G06,#09 [FALSE] L0010 PRINT "It is the afternoon of June 3rd, 1993, and you are in the catacombs beneath the gardens. " L0010: JE G06,#0b [FALSE] L0011 PRINT "It is some time in the winter of 275 B.C., the reign of Ptolemy II, and you are in ancient Alexandria. " L0011: JE G06,#0c [FALSE] L0012 PRINT "It is the afternoon of June 3rd, 1993, and you are northeast of Meldrew Hall. " L0012: JE G06,#0d [FALSE] L0013 PRINT "The Spirit World, centuries ahead of your sleeping body. " L0013: PRINT "You have so far scored " L0014: JG G05,#00 [FALSE] L0015 PRINT "In that game you scored " L0015: PRINT_NUM G01 PRINT " out of a possible 550, in " PRINT_NUM G02 PRINT " turn" JE G02,#01 [TRUE] L0016 PRINT "s" L0016: PRINT ", earning you the rank of " STORE L00,G01 LOADB G13,#0b -> -(SP) JE #00,(SP)+ [TRUE] L0017 SUB L00,#32 -> L00 L0017: JL L00,#01f4 [TRUE] L0018 PRINT_RET "happy Tourist." L0018: JE L00,#01f3 [FALSE] L0019 PRINT_RET "very nearly happy Tourist." L0019: JL L00,#01c2 [TRUE] L0020 PRINT_RET "master Druid." L0020: JL L00,#01a9 [TRUE] L0021 PRINT_RET "journeyman Druid." L0021: JL L00,#0190 [TRUE] L0022 PRINT_RET "apprentice Druid." L0022: JL L00,#0177 [TRUE] L0023 PRINT_RET "Master Navigator." L0023: JL L00,#0154 [TRUE] L0024 PRINT_RET "Navigator." L0024: JL L00,#0136 [TRUE] L0025 PRINT_RET "Voyager." L0025: JL L00,#0118 [TRUE] L0026 PRINT_RET "Explorer." L0026: JL L00,#fa [TRUE] L0027 PRINT_RET "expert Traveller." L0027: JL L00,#d2 [TRUE] L0028 PRINT_RET "Traveller." L0028: JL L00,#aa [TRUE] L0029 PRINT_RET "Adventurer." L0029: JL L00,#96 [TRUE] L0030 PRINT_RET "Connoisseur." L0030: JL L00,#64 [TRUE] L0031 PRINT_RET "Jack-of-all-trades." L0031: JL L00,#4b [TRUE] L0032 PRINT_RET "Dilletante." L0032: JL L00,#32 [TRUE] L0033 PRINT_RET "cynical Tourist." L0033: JL L00,#23 [TRUE] L0034 PRINT_RET "experienced Tourist." L0034: JL L00,#14 [TRUE] L0035 PRINT_RET "seasoned Tourist." L0035: JL L00,#0a [TRUE] L0036 PRINT_RET "casual Tourist." L0036: JL L00,#01 [TRUE] L0037 PRINT_RET "gauche Tourist." L0037: JL L00,#00 [TRUE] L0038 PRINT_RET "hapless Tourist." L0038: ADD #63,L00 -> -(SP) JE #00,(SP)+ [FALSE] L0039 PRINT_RET "irresponsible deity." L0039: PRINT_RET "accursed Tourist." Routine R0161, 2 locals PRINT " " STORE L01,L00 JL L01,#00 [FALSE] L0001 SUB #00,L00 -> L01 MUL L01,#0a -> L01 L0001: JL L01,#0a [FALSE] L0002 PRINT " " JUMP L0004 L0002: JL L01,#64 [FALSE] L0003 PRINT " " JUMP L0004 L0003: JL L01,#03e8 [FALSE] L0004 PRINT " " L0004: PRINT_NUM L00 PRINT " " RTRUE Routine R0162, 2 locals JE L00,#15 [FALSE] L0001 STORE L01,#00 SUB L01,#32 -> L01 L0001: CALL_2N R0161 (L01) JE L00,#00 [FALSE] L0002 PRINT_RET "reading postcard" L0002: JE L00,#01 [FALSE] L0003 PRINT_RET "recharging torch" L0003: JE L00,#02 [FALSE] L0004 PRINT_RET "exorcism" L0004: JE L00,#03 [FALSE] L0005 PRINT_RET "opening secret door" L0005: JE L00,#04 [FALSE] L0006 PRINT_RET "opening demijohn" L0006: JE L00,#05 [FALSE] L0007 PRINT_RET "using dumbwaiter" L0007: JE L00,#06 [FALSE] L0008 PRINT_RET "charging a rod" L0008: JE L00,#07 [FALSE] L0009 PRINT_RET "firing a rod" L0009: JE L00,#08 [FALSE] L0010 PRINT_RET "exposing radio" L0010: JE L00,#09 [FALSE] L0011 PRINT_RET "sporting a daisy chain" L0011: JE L00,#0a [FALSE] L0012 PRINT_RET "placating Aunt Jemima" L0012: JE L00,#0b [FALSE] L0013 PRINT_RET "rescuing Andromeda" L0013: JE L00,#0c [FALSE] L0014 PRINT_RET "uncovering battery" L0014: JE L00,#0d [FALSE] L0015 PRINT_RET "mending the plumbing" L0015: JE L00,#0e [FALSE] L0016 PRINT_RET "scenting a passage" L0016: JE L00,#0f [FALSE] L0017 PRINT_RET "reflecting" L0017: JE L00,#10 [FALSE] L0018 PRINT_RET "solving the grid" L0018: JE L00,#11 [FALSE] L0019 PRINT_RET "winning the orb" L0019: JE L00,#12 [FALSE] L0020 PRINT_RET "buying map of Paris" L0020: JE L00,#13 [FALSE] L0021 PRINT_RET "filling the arc" L0021: JE L00,#14 [FALSE] L0022 PRINT_RET "getting into the well" L0022: JE L00,#15 [FALSE] L0023 PRINT_RET "acquiring the mascot" L0023: JE L00,#16 [FALSE] L0024 PRINT_RET "eating between meals" L0024: JE L00,#17 [FALSE] L0025 PRINT_RET "smoke detecting" L0025: JE L00,#18 [FALSE] L0026 PRINT_RET "putting a ship in a bottle" L0026: JE L00,#19 [FALSE] L0027 PRINT_RET "parachuting on deck" L0027: JE L00,#1a [FALSE] L0028 PRINT_RET "sleeping in Alison's bed" L0028: JE L00,#1b [FALSE] L0029 PRINT_RET "opening sandstone crevice" L0029: JE L00,#1c [FALSE] L0030 PRINT_RET "identifying a rod" L0030: JE L00,#1d [FALSE] L0031 PRINT_RET "dislodging the watch" L0031: JE L00,#1e [FALSE] L0032 PRINT_RET "hypnosis" L0032: JE L00,#1f [FALSE] L0033 PRINT_RET "passing security" L0033: JE L00,#20 [FALSE] L0034 PRINT_RET "restoring the Temple" L0034: JE L00,#21 [FALSE] L0035 PRINT_RET "answering Homer" L0035: JE L00,#22 [FALSE] L0036 PRINT_RET "summoning the oracle" L0036: JE L00,#23 [FALSE] L0037 PRINT_RET "unearthing strongbox" L0037: JE L00,#24 [FALSE] L0038 PRINT_RET "startling Austin" L0038: JE L00,#25 [FALSE] L0039 PRINT_RET "washing away the stone" L0039: JE L00,#26 [FALSE] L0040 PRINT_RET "provoking the librarians" L0040: JE L00,#27 [FALSE] L0041 PRINT_RET "twisting the sphinx's nose" L0041: JE L00,#28 [FALSE] L0042 PRINT_RET "depositing the quarterstaff" L0042: JE L00,#29 [FALSE] L0043 PRINT_RET "rising in the afterlife" L0043: JE L00,#2a [FALSE] L0044 PRINT_RET "reviving the knight" L0044: JE L00,#2b [FALSE] L0045 PRINT_RET "encouraging the knight" L0045: JE L00,#2c [FALSE] L0046 PRINT_RET "choosing a High Rod" L0046: PRINT_RET "(something else)" Routine R0163, 3 locals Action routine for: "full" CALL_1N R0160 JE G01,#00 [FALSE] L0001 RFALSE L0001: NEW_LINE STORE L02,#00 JG G05,#00 [FALSE] L0002 PRINT "The score was " L0002: JE G05,#00 [FALSE] L0003 PRINT "The score is " L0003: PRINT "made up as follows: " STORE L00,#01 L0004: JL L00,G40 [FALSE] L0008 STORE L01,#00 L0005: JL L01,#2f [FALSE] L0007 LOADB G13,L01 -> -(SP) JE (SP)+,L00 [FALSE] L0006 LOADB G12,L01 -> -(SP) CALL_VN R0162 (L01,(SP)+) ADD L02,L01 -> L02 L0006: INC L01 JUMP L0005 L0007: INC L00 JUMP L0004 L0008: JE G16,#00 [TRUE] L0009 CALL_2N R0161 (G16) PRINT "discovering rods " L0009: JE G14,#00 [TRUE] L0010 CALL_2N R0161 (G14) PRINT "finding sundry items " L0010: JE G15,#00 [TRUE] L0011 CALL_2N R0161 (G15) PRINT "visiting various places " L0011: JE G17,#00 [TRUE] L0012 CALL_2N R0161 (#05) PRINT "bonus for a good try " L0012: ADD G14,G15 -> -(SP) ADD G16,(SP)+ -> -(SP) ADD L02,(SP)+ -> L02 JE G17,#00 [TRUE] L0013 ADD L02,#05 -> L02 L0013: ADD G01,#63 -> -(SP) JE (SP)+,#00 [FALSE] L0014 ADD L02,#63 -> L02 SUB #00,L02 -> L02 CALL_2N R0161 (L02) PRINT "destroying universe " L0014: NEW_LINE CALL_2N R0161 (G01) PRINT "total (out of 550) " JE G05,#02 [FALSE] L0015 LOADB G13,#0b -> -(SP) JE #00,(SP)+ [FALSE] L0015 PRINT " Sadly, you missed out on the 50-point bonus for rescuing Andromeda. " L0015: RFALSE Routine R0164, 1 local Action routine for: "die" PRINT "Are you sure you want to quit? " TEST_ATTR "southeast wall",#19 [TRUE] L0001 CALL_2N R0043 (#17) SET_ATTR "southeast wall",#19 L0001: STOREB G47,#01,#00 CALL_1N R0159 READ G47,G48 -> Gef LOADW G48,#01 -> L00 JE L00,"yes" [FALSE] L0002 QUIT L0002: JE L00,"y" [FALSE] L0003 QUIT L0003: JE L00,"no" [FALSE] L0004 RTRUE L0004: JE L00,"n" [FALSE] L0005 RTRUE L0005: PRINT "Please answer yes or no." PRINT_CHAR '>' PRINT_CHAR ' ' JUMP L0001 Routine R0165, 1 local Action routine for: "restart" PRINT "Are you sure you want to restart? " L0001: STOREB G47,#01,#00 CALL_1N R0159 READ G47,G48 -> Gef LOADW G48,#01 -> L00 JE L00,"yes","y" [FALSE] L0002 STORE G1e,#00 LOADW #00,#08 -> -(SP) AND (SP)+,#fffe -> L00 STOREW #00,#08,L00 RESTART L0002: JE L00,"no" [FALSE] L0003 RTRUE L0003: JE L00,"n" [FALSE] L0004 RTRUE L0004: PRINT "Please answer yes or no." PRINT_CHAR '>' PRINT_CHAR ' ' JUMP L0001 Routine R0166, 0 locals Action routine for: "restore" STORE G41,#01 RESTORE -> Gef JE Gef,#02 [TRUE] L0001 PRINT_RET "Failed." L0001: NEW_LINE CALL_1N R0198 RTRUE Routine R0167, 0 locals Action routine for: "save" STORE G41,#01 JE G00,#0121 [FALSE] L0001 PRINT_RET "The angel looks at you reproachfully." L0001: JE G00,#011f [FALSE] L0002 PRINT_RET "The demon looks at you viciously." L0002: SAVE -> Gef JE Gef,#00 [FALSE] L0003 PRINT_RET "Failed." L0003: PRINT "Ok. " RTRUE Routine R0168, 0 locals Action routine for: "verify" VERIFY [TRUE] L0001 JUMP L0002 L0001: PRINT_RET "The game file has verified as intact." L0002: PRINT_RET "The game file did not verify properly, and may be corrupted (unless you are running it on a primitive interpreter which does not properly implement the VERIFY code: the InfoTaskForce one does implement it, but some may not)." Routine R0169, 1 local Action routine for: "script" "script on" JE G1e,#01 [FALSE] L0001 PRINT_RET "Transcripting is already on." L0001: STORE G1e,#01 LOADW #00,#08 -> -(SP) OR (SP)+,#01 -> L00 STOREW #00,#08,L00 PRINT "Start of a transcript of " CALL_1N R0029 RTRUE Routine R0170, 1 local Action routine for: "script off" "noscript" JE G1e,#00 [FALSE] L0001 PRINT_RET "Transcripting is already off." L0001: PRINT " End of transcript. " STORE G1e,#00 LOADW #00,#08 -> -(SP) AND (SP)+,#fffe -> L00 STOREW #00,#08,L00 RTRUE Routine R0171, 1 local LOADW #00,#08 -> -(SP) OR (SP)+,#02 -> L00 STOREW #00,#08,L00 RTRUE Routine R0172, 1 local LOADW #00,#08 -> -(SP) AND (SP)+,#fffd -> L00 STOREW #00,#08,L00 RTRUE Routine R0173, 1 local Action routine for: "get invent" "i" GET_CHILD G03 -> L00 [TRUE] L0001 L0001: PRINT "You are " JE G00,#a8 [FALSE] L0002 PRINT "bathed in a curious white light, and " L0002: JE L00,#00 [FALSE] L0003 PRINT_RET "carrying nothing." L0003: PRINT "carrying: " CALL_2N R0174 (G03) CALL_2N R0041 (#00) RTRUE Routine R0174, 4 locals STORE L02,#01 JE L01,#00 [TRUE] L0003 STORE L03,#01 DEC L03 L0001: JL L03,L01 [FALSE] L0002 INC L03 PRINT " " JUMP L0001 L0002: CALL_VS R0200 (L00,#00) -> L02 NEW_LINE L0003: JE L02,#00 [FALSE] L0004 RTRUE L0004: GET_CHILD L00 -> L02 [TRUE] L0005 L0005: JE L02,#00 [TRUE] L0007 ADD L01,#01 -> -(SP) CALL_VN R0174 (L02,(SP)+) GET_SIBLING L02 -> L02 [TRUE] L0006 L0006: JUMP L0005 L0007: RTRUE Routine R0175, 1 local Action routine for: "get MULTI" "extract MULTI" "peel NOUN" "peel off NOUN" CALL_2S R0176 (G00) -> L00 JE L00,#00 [TRUE] L0001 RTRUE L0001: CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0002 RTRUE L0002: STORE G53,G54 JE G53,#00 [FALSE] L0003 PRINT "Taken. " L0003: RTRUE Routine R0176, 4 locals JE G4d,G03 [FALSE] L0001 PRINT_RET "As the bishop said to the actress." L0001: TEST_ATTR G4d,#04 [FALSE] L0002 PRINT "I don't suppose " CALL_2N R0290 (G4d) PRINT_RET " would care for that." L0002: GET_PARENT G4d -> L01 JE L01,G03 [FALSE] L0003 PRINT_RET "You already have that." L0003: JE L01,L00 [TRUE] L0007 TEST_ATTR L01,#08 [TRUE] L0004 PRINT_RET "That isn't available." L0004: TEST_ATTR L01,#0a [TRUE] L0005 PRINT "Unfortunately the " PRINT_OBJ L01 PRINT_RET " isn't open." L0005: GET_PARENT L01 -> L01 JE L01,G03 [FALSE] L0006 STORE L01,L00 L0006: JUMP L0003 L0007: TEST_ATTR G4d,#0e [FALSE] L0008 PRINT_RET "That's hardly portable." L0008: JE G4d,#82 [FALSE] L0009 PRINT_RET "It's too heavy to lift off the casters." L0009: TEST_ATTR G4d,#0f [FALSE] L0010 PRINT_RET "Fixed in place." L0010: GET_CHILD G03 -> L02 [TRUE] L0011 L0011: STORE L03,#00 L0012: JE L02,#00 [TRUE] L0015 TEST_ATTR L02,#02 [TRUE] L0013 ADD L03,#01 -> L03 L0013: GET_SIBLING L02 -> L02 [TRUE] L0014 L0014: JUMP L0012 L0015: JG L03,#04 [FALSE] L0023 GET_PARENT "canvas rucksack" -> -(SP) JE (SP)+,G03 [TRUE] L0016 PRINT_RET "You're carrying too many things already." L0016: GET_CHILD G03 -> L03 [TRUE] L0017 L0017: STORE L02,#00 L0018: JE L03,#00 [TRUE] L0021 JE L03,#4a [TRUE] L0019 TEST_ATTR L03,#02 [TRUE] L0019 JE L03,#25 [TRUE] L0019 STORE L02,L03 L0019: GET_SIBLING L03 -> L03 [TRUE] L0020 L0020: JUMP L0018 L0021: JE L02,#00 [TRUE] L0022 PRINT "(putting " CALL_2N R0290 (L02) PRINT " into the rucksack to make room) " REMOVE_OBJ L02 INSERT_OBJ L02,"canvas rucksack" JUMP L0023 L0022: PRINT_RET "You're carrying too many things already." L0023: REMOVE_OBJ G4d INSERT_OBJ G4d,G03 CLEAR_ATTR G4d,#01 TEST_ATTR G4d,#06 [TRUE] L0024 SET_ATTR G4d,#06 TEST_ATTR G4d,#1e [FALSE] L0024 ADD G01,#04 -> G01 ADD G14,#04 -> G14 L0024: RFALSE Routine R0177, 1 local Action routine for: "hang down MULTIHELD" "hang MULTIHELD down" "discard MULTIHELD" GET_PARENT G4d -> L00 JE L00,G00 [FALSE] L0001 PRINT_RET "Already on the floor." L0001: JE L00,G03 [TRUE] L0002 PRINT_RET "You haven't got that." L0002: TEST_ATTR G4d,#02 [FALSE] L0003 PRINT "(first taking it off) " CLEAR_ATTR G4d,#02 L0003: REMOVE_OBJ G4d GET_PARENT G03 -> L00 INSERT_OBJ G4d,L00 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0004 RTRUE L0004: JE G00,#0c [FALSE] L0005 PRINT_RET "Dropped and lost among the darkness." L0005: TEST_ATTR G4d,#12 [FALSE] L0006 CALL_2N R0041 (#10) L0006: PRINT_RET "Dropped." Routine R0178, 1 local Action routine for: "get MULTIINSIDE from NOUN" "get MULTIINSIDE out of NOUN" "extract MULTIINSIDE from NOUN" GET_PARENT G4d -> L00 TEST_ATTR L00,#0a [TRUE] L0001 PRINT_RET "Alas, it is closed." L0001: JE L00,G4e [TRUE] L0002 PRINT_RET "But it isn't there now." L0002: TEST_ATTR G4e,#02 [FALSE] L0003 PRINT_RET "You'll need to take it off first." L0003: CALL_2S R0176 (G4e) -> L00 JE L00,#00 [TRUE] L0004 RTRUE L0004: STORE G4c,#02 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0005 RTRUE L0005: STORE G4c,#03 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0006 RTRUE L0006: PRINT "Removed. " RTRUE Routine R0179, 1 local Action routine for: "hang MULTIEXCEPT in NOUN" "hang MULTIEXCEPT into NOUN" "hang MULTIEXCEPT on NOUN" "insert MULTIEXCEPT in NOUN" "insert MULTIEXCEPT into NOUN" "discard MULTIEXCEPT in NOUN" "discard MULTIEXCEPT into NOUN" "discard MULTIEXCEPT down NOUN" "discard MULTIEXCEPT through NOUN" JE G4e,#0b [FALSE] L0001 STORE G4c,#09 CALL_VN R0026 (G4d,#00,G4c) RFALSE L0001: GET_PARENT G4d -> L00 JE L00,G03 [TRUE] L0002 PRINT_RET "You need to be holding it before you can put it into something else." L0002: JE G4d,G4e [FALSE] L0003 PRINT_RET "Inside itself?" L0003: TEST_ATTR G4e,#08 [TRUE] L0004 PRINT_RET "That can't hold things." L0004: TEST_ATTR G4e,#0a [TRUE] L0005 PRINT_RET "Alas, it is closed." L0005: TEST_ATTR G4e,#02 [FALSE] L0006 PRINT_RET "You'll need to take it off first." L0006: TEST_ATTR G4d,#02 [FALSE] L0007 PRINT "(first taking it off) " CLEAR_ATTR G4d,#02 L0007: JE G4e,#bc [FALSE] L0008 TEST_ATTR G4d,#1b [TRUE] L0008 PRINT_RET "Only cards will fit." L0008: JE G4e,#25 [FALSE] L0009 CALL_1S R0347 -> L00 JE L00,#00 [TRUE] L0009 RTRUE L0009: JE G4e,#3b [FALSE] L0010 CALL_1S R0346 -> L00 JE L00,#00 [TRUE] L0010 RTRUE L0010: REMOVE_OBJ G4d INSERT_OBJ G4d,G4e CALL_1S R0028 -> -(SP) JE #01,(SP)+ [FALSE] L0011 RTRUE L0011: JE G52,#01 [FALSE] L0012 PRINT_RET "Done." L0012: PRINT "You put the " PRINT_OBJ G4d PRINT " into the " PRINT_OBJ G4e PRINT_RET "." Routine R0180, 2 locals Action routine for: "transfer NOUN to NOUN" "bounce NOUN to NOUN" STORE L01,#08 JE G4e,#0b [FALSE] L0001 STORE L01,#09 L0001: GET_PARENT G4d -> L00 JE L00,G03 [TRUE] L0006 L0002: JE L00,#00 [TRUE] L0005 TEST_ATTR L00,#0a [TRUE] L0003 PRINT_RET "That isn't in your possession." L0003: GET_PARENT L00 -> L00 JE L00,G03 [FALSE] L0004 JUMP L0006 L0004: JUMP L0002 L0005: PRINT_RET "First pick that up." L0006: REMOVE_OBJ G4d INSERT_OBJ G4d,G03 STORE G4c,L01 CALL_VN R0026 (G4d,G4e,G4c) RFALSE Routine R0181, 0 locals Action routine for: "empty NOUN" STORE G4e,#0b CALL_1N R0182 RTRUE Routine R0182, 2 locals Action routine for: "empty NOUN to NOUN" "empty NOUN into NOUN" TEST_ATTR G4d,#08 [TRUE] L0001 CALL_2N R0291 (G4d) PRINT_RET " can't contain things." L0001: TEST_ATTR G4d,#0a [TRUE] L0002 CALL_2N R0291 (G4d) PRINT_RET " is closed." L0002: JE G4e,#0b [TRUE] L0004 TEST_ATTR G4e,#08 [TRUE] L0003 CALL_2N R0291 (G4e) PRINT_RET " can't contain things." L0003: TEST_ATTR G4e,#0a [TRUE] L0004 CALL_2N R0291 (G4e) PRINT_RET " is closed." L0004: STORE L00,G4d GET_CHILD L00 -> L00 [TRUE] L0005 L0005: JE L00,#00 [FALSE] L0006 CALL_2N R0290 (G4d) PRINT_RET " is empty already." L0006: JE L00,#00 [TRUE] L0008 GET_SIBLING L00 -> L01 [TRUE] L0007 L0007: PRINT_OBJ L00 PRINT ": " STORE G4c,#0c CALL_VN R0026 (L00,G4e,G4c) STORE L00,L01 JUMP L0006 L0008: RTRUE Routine R0183, 0 locals Action routine for: "lie" PRINT_RET "Whatever happened to truthfulness..." Routine R0184, 0 locals Action routine for: "lie down" STORE G4d,#00 JE G00,#28 [FALSE] L0001 STORE G4d,#2b L0001: JE G00,#5b [FALSE] L0002 STORE G4d,#5c L0002: JE G4d,#00 [FALSE] L0003 PRINT_RET "You lie down on the floor for a while and then get up again, feeling foolish." L0003: CALL_1N R0185 RTRUE Routine R0185, 1 local Action routine for: "get in NOUN" "get into NOUN" "go to NOUN" "go into NOUN" "go through NOUN" "board NOUN" "lie on NOUN" JE G4d,#01 [FALSE] L0001 CALL_1N R0194 RTRUE L0001: TEST_ATTR G4d,#07 [FALSE] L0002 CALL_1N R0194 RTRUE L0002: GET_PARENT G03 -> L00 JE L00,G00 [TRUE] L0003 PRINT "But you're already in the " PRINT_OBJ L00 PRINT_RET "." L0003: TEST_ATTR G4d,#0d [TRUE] L0004 PRINT_RET "A surreal idea." L0004: GET_PARENT G4d -> L00 JE L00,G00 [TRUE] L0005 PRINT_RET "You can only get into something on the floor." L0005: REMOVE_OBJ G03 INSERT_OBJ G03,G4d PRINT "You get into the " PRINT_OBJ G4d PRINT_RET "." Routine R0186, 0 locals Action routine for: "get out" "get up" "stand" "stand up" "exit" GET_PARENT G03 -> -(SP) JE (SP)+,G00 [FALSE] L0001 PRINT_RET "But you aren't in anything at the moment." L0001: JE G00,#0c [FALSE] L0004 JE G22,#00 [TRUE] L0002 PRINT_RET "You can't see what you're doing. It's dark." L0002: GET_PARENT G03 -> -(SP) JE (SP)+,#56 [FALSE] L0003 PRINT_RET ""Exit" should be used only to get out of things like dumbwaiters. Since you're stuck here in the dark, why not go back east into the cupboard." L0003: PRINT_RET "You'll have to say exactly how to exit the darkness..." L0004: REMOVE_OBJ G03 INSERT_OBJ G03,G00 PRINT "You are on your own two feet again. " CALL_2N R0198 (#01) RTRUE Routine R0187, 0 locals Action routine for: "go" PRINT_RET "You'll have to say which compass direction to go in." Routine R0188, 1 local PRINT " *** You have died *** " PRINT "Or have you? No... this isn't quite the end. You see an intense blue-white light at the end of what seems a tunnel, and drift toward it until you realise that you are staring, dazed, into the light of the slide projector, and have not moved at all. " SET_ATTR L00,#19 RTRUE Routine R0189, 0 locals PRINT_RET "That seems an inappropriate direction here." Routine R0190, 0 locals Action routine for: "starboard" TEST_ATTR G00,#24 [TRUE] L0001 CALL_1N R0189 RFALSE L0001: SET_ATTR "Prow of the Lady Magdalena",#19 CALL_VN R0026 (#04,#00,#13) RTRUE Routine R0191, 0 locals Action routine for: "port" TEST_ATTR G00,#24 [TRUE] L0001 CALL_1N R0189 RFALSE L0001: SET_ATTR "Prow of the Lady Magdalena",#19 CALL_VN R0026 (#05,#00,#13) RTRUE Routine R0192, 0 locals Action routine for: "fore" TEST_ATTR G00,#24 [TRUE] L0001 CALL_1N R0189 RFALSE L0001: SET_ATTR "Prow of the Lady Magdalena",#19 CALL_VN R0026 (#02,#00,#13) RTRUE Routine R0193, 0 locals Action routine for: "aft" TEST_ATTR G00,#24 [TRUE] L0001 CALL_1N R0189 RFALSE L0001: SET_ATTR "Prow of the Lady Magdalena",#19 CALL_VN R0026 (#03,#00,#13) RTRUE Routine R0194, 4 locals Action routine for: "go NOUN" TEST_ATTR G00,#24 [FALSE] L0002 JE G4d,#04,#05,#02 [TRUE] L0001 JE G4d,#03 [FALSE] L0002 L0001: TEST_ATTR "Prow of the Lady Magdalena",#19 [TRUE] L0002 PRINT_RET "Aboard ship, in this confusing nautical world, compass directions seem senseless." L0002: TEST_ATTR "carbolic soap",#01 [TRUE] L0003 CALL_2N R0041 (#0d) PRINT_RET "You're going nowhere until you make amends for that nasty bad language." L0003: STORE L03,#00 GET_PARENT G03 -> L00 JE G00,#0c [TRUE] L0006 JE L00,#96 [FALSE] L0005 TEST_ATTR "garden roller",#18 [FALSE] L0004 STORE L03,#96 STORE L00,#96 GET_PARENT L00 -> L00 JUMP L0006 L0004: PRINT_RET "The motor isn't on at the moment." L0005: JE L00,G00 [TRUE] L0006 PRINT "You'll have to get out of the " PRINT_OBJ L00 PRINT_RET " first." L0006: GET_PROP G4d,#08 -> L01 JE L01,#00 [FALSE] L0007 PRINT_RET "That doesn't seem to be something you can walk into." L0007: GET_PROP L00,L01 -> L01 JE L01,#00 [FALSE] L0009 JE G06,#08,#0a [FALSE] L0008 CALL_2N R0041 (#1d) PRINT_RET "You drift in that direction, but without gaining any ground." L0008: GET_PROP L00,#18 -> L00 PRINT_PADDR L00 NEW_LINE RFALSE L0009: STORE G38,#00 JE G06,#0b [FALSE] L0013 JE G00,#01ab [FALSE] L0012 JE G4d,#08 [FALSE] L0012 GET_PARENT "Austin" -> -(SP) JE (SP)+,#01ab [FALSE] L0010 PRINT "The Museum guards are so busy abasing themselves before the sacred Cat (incredibly, that's Austin) that you are able to slip inside. Austin, having at long last found owners even more gullible and undemanding than yourself, ambles away to a life of extreme cossetting and luxury. " REMOVE_OBJ "Austin" JUMP L0011 L0010: PRINT_RET "Museum guards tactfully nudge drunken louts away from the Museum." L0011: JUMP L0013 L0012: GET_PARENT "Austin" -> -(SP) JE (SP)+,G00 [FALSE] L0013 PRINT "Austin strolls regally after you. " STORE G38,#01 L0013: TEST_ATTR L01,#07 [FALSE] L0033 TEST_ATTR L01,#01 [FALSE] L0014 PRINT_RET "You can't go that way." L0014: TEST_ATTR L01,#0a [TRUE] L0019 JE G4d,#0a [FALSE] L0015 PRINT "You are unable to climb via " CALL_2N R0290 (L01) PRINT_RET "." L0015: JE G4d,#0b [FALSE] L0016 PRINT "You are unable to descend via " CALL_2N R0290 (L01) PRINT_RET "." L0016: JE L01,#d8 [FALSE] L0017 PRINT_RET "Are you in Seine? There is a river in between you and the boat." L0017: JE L01,#5d [FALSE] L0018 PRINT_RET "You can't, since the windows are in the way." L0018: PRINT "You can't, since " CALL_2N R0290 (L01) PRINT_RET " is in the way." L0019: JE L01,#44 [FALSE] L0029 STORE L00,#43 GET_CHILD L00 -> L00 [TRUE] L0020 L0020: JE L00,#00 [FALSE] L0021 PRINT_RET "You can't go that way." L0021: JE L00,#c2 [FALSE] L0022 PRINT_RET "You are unable to enter the picture. It isn't very realistic, more a stylised figure-eight." L0022: PRINT "You walk confidently into the south wall... " STORE L00,#43 GET_CHILD L00 -> L00 [TRUE] L0023 L0023: TEST_ATTR L00,#19 [FALSE] L0024 PRINT_RET "But are unable to enter the scene for a second time." L0024: JE L00,#d2 [FALSE] L0025 PRINT " And find yourself in a golden cornfield on a sunny afternoon. You have just time to admire the ears of wheat before the scythe of the Grim Reaper cuts your soul from your body. " CALL_2N R0188 (L00) RTRUE L0025: JE L00,#d4 [FALSE] L0026 PRINT " You are underwater, in the wreck of a ship, surrounded by the skeletons of its former crew, whom you abruptly join as your air runs out. " CALL_2N R0188 (L00) RTRUE L0026: JE L00,#d3 [FALSE] L0027 PRINT " And find yourself stepping off a cliff. All is well for a moment, and then like a cartoon character you notice there is no ground beneath you and you plummet to a stony death far below. " CALL_2N R0188 (L00) RTRUE L0027: SET_ATTR L00,#19 STORE G06,#04 JE L00,#ad [FALSE] L0028 STORE G06,#06 L0028: JE L00,#0131 [FALSE] L0029 STORE G06,#0b L0029: JE L01,#8e [FALSE] L0031 JE L03,#96 [FALSE] L0030 PRINT_RET "The garden roller will never fit." L0030: STORE G06,#01 L0031: JE L01,#6f [FALSE] L0032 STORE G06,#05 PRINT "Your eyes blink with the sunlight as you emerge. " L0032: GET_PROP L01,#13 -> L01 JE L01,#00 [FALSE] L0033 PRINT "You can't, since " CALL_2N R0290 (L01) PRINT_RET " leads nowhere." L0033: JE L03,#00 [FALSE] L0034 REMOVE_OBJ G03 INSERT_OBJ G03,L01 L0034: JE L03,#00 [TRUE] L0040 JE G4d,#0b [FALSE] L0035 PRINT_RET "It won't go that way." L0035: JE G4d,#0a [FALSE] L0036 PRINT_RET "It won't go that way." L0036: JE L03,#96 [FALSE] L0039 JE L01,#91 [FALSE] L0037 PRINT_RET "Philistine! How dare you drive a garden roller all over a Roman mosaic." L0037: JE L01,#90 [FALSE] L0038 PRINT "Crunch! The garden roller ran into something there. " SET_ATTR "Contraption ",#00 CALL_VN R0150 (#05,#016b) SET_ATTR "Lawn Ornaments",#19 L0038: GET_PARENT " " -> -(SP) JE (SP)+,L01 [FALSE] L0039 TEST_ATTR " ",#16 [FALSE] L0039 PRINT "Oh dear. The medicine bottle, which you negligently left lying in the path of the roller, seems to have been cracked. " CLEAR_ATTR " ",#16 SET_ATTR " ",#0a CALL_1N R0030 L0039: REMOVE_OBJ L03 INSERT_OBJ L03,L01 L0040: CALL_2S R0039 (L01) -> L02 JE L02,#00 [TRUE] L0041 STORE G00,L01 STORE G04,#01 L0041: JE L02,#00 [FALSE] L0046 JE G00,#0c [FALSE] L0045 STORE G05,#01 JE G06,#01 [TRUE] L0042 PRINT_RET "As you step falteringly through the darkness, cowardly but evil creatures devour you whole!" L0042: STORE G05,#03 PRINT "As you unwisely blunder about in the dark, you " JE L01,#58 [FALSE] L0043 PRINT_RET "slip down a side passage of the chimney, further and further, blindly landing in a cloud of soot in the fireplace of the lounge downstairs. Fortunately your family is on hand to clean you up and put you back to work packing." L0043: JL L01,#6c [TRUE] L0044 PRINT_RET "miss your footing, trip over and bang your head... Some time later you wake up in hospital, very confused and not on holiday. Fortunately Aunt Jemima comes to visit you every afternoon with plenty of things for you to do..." L0044: PRINT_RET "put a foot wrong and crash through a thin plaster roof into one of the upstairs bedrooms, happily landing on the bed. In later years it becomes a family joke that you demolished half the house for a tatty old tourist map." L0045: STORE G00,#0c STORE G04,#00 L0046: JE G38,#01 [FALSE] L0047 GET_PARENT G03 -> -(SP) INSERT_OBJ "Austin",(SP)+ STORE G38,#00 L0047: JE G00,#01c1 [FALSE] L0054 L0048: GET_CHILD "Lost inside the Palace" -> -(SP) [TRUE] L0049 L0049: JE (SP)+,#00 [TRUE] L0051 GET_CHILD "Lost inside the Palace" -> -(SP) [TRUE] L0050 L0050: REMOVE_OBJ (SP)+ JUMP L0048 L0051: INSERT_OBJ "slave","Lost inside the Palace" INSERT_OBJ G03,"Lost inside the Palace" STORE G3b,G3a STORE G3a,G39 STORE G39,G4d CLEAR_ATTR "Lost inside the Palace",#19 JE G3b,#06 [FALSE] L0052 JE G3a,#04 [FALSE] L0052 JE G39,#03 [FALSE] L0052 SET_ATTR "Lost inside the Palace",#19 L0052: JE G39,#03 [FALSE] L0053 JE G3a,#03 [FALSE] L0053 STORE G00,#01c0 INSERT_OBJ G03,G00 L0053: INC G3c JE G3c,#02 [FALSE] L0054 CALL_2N R0041 (#2e) L0054: CALL_1S R0028 -> -(SP) JE #01,(SP)+ [FALSE] L0055 RTRUE L0055: JE G06,#08 [FALSE] L0057 JE G00,#8c [FALSE] L0056 CALL_1N R0198 RFALSE L0056: JE G4d,#04,#05 [FALSE] L0057 PRINT "You pass uncomfortably straight through the hide wall. " L0057: CALL_2N R0198 (#01) RTRUE Routine R0195, 0 locals Action routine for: "brief" STORE G20,#01 PRINT_RET ""Curses" is now in its normal "brief" printing mode, which gives long descriptions of places never before visited and short descriptions otherwise." Routine R0196, 0 locals Action routine for: "long" STORE G20,#02 PRINT_RET ""Curses" is now in its "verbose" mode, which always gives long descriptions of locations (even places you've been before)." Routine R0197, 0 locals Action routine for: "short" STORE G20,#03 PRINT_RET ""Curses" is now in its "superbrief" mode, which always gives short descriptions of locations (even places you've never been before)." Routine R0198, 7 locals Action routine for: "l" STORE L06,G00 NEW_LINE JE G2a,#01 [FALSE] L0001 SET_TEXT_STYLE BOLDFACE L0001: PRINT_OBJ G00 JE G2a,#01 [FALSE] L0002 SET_TEXT_STYLE ROMAN L0002: GET_PARENT G03 -> L01 JE G00,#0c [TRUE] L0010 JE L01,G00 [TRUE] L0003 PRINT " (in the " PRINT_OBJ L01 PRINT ")" STORE L06,L01 L0003: JE L01,#0149 [FALSE] L0010 JE G34,#00 [FALSE] L0004 JE G35,#00 [TRUE] L0010 L0004: PRINT " (" JE G34,#00 [TRUE] L0007 CALL_2N R0073 (G34) JG G34,#00 [FALSE] L0005 PRINT " east" JUMP L0006 L0005: PRINT " west" L0006: JE G35,#00 [TRUE] L0007 PRINT " and " L0007: JE G35,#00 [TRUE] L0009 CALL_2N R0073 (G35) JG G35,#00 [FALSE] L0008 PRINT " north" JUMP L0009 L0008: PRINT " south" L0009: PRINT " of the peg)" L0010: NEW_LINE GET_PROP G00,#1b -> L02 JE L02,#01 [FALSE] L0011 GET_PARENT " " -> -(SP) JE (SP)+,G00 [TRUE] L0011 CALL_1N R0151 L0011: GET_PROP G00,#1c -> L02 JE L02,#00 [TRUE] L0012 STORE G06,L02 L0012: JE L00,#01 [TRUE] L0013 JUMP L0016 L0013: JE G20,#02 [FALSE] L0014 JUMP L0016 L0014: JE G20,#03 [FALSE] L0015 JUMP L0017 L0015: TEST_ATTR G00,#11 [FALSE] L0016 JE L00,#01 [FALSE] L0016 JUMP L0017 L0016: GET_PROP G00,#02 -> L01 PRINT_PADDR L01 NEW_LINE L0017: TEST_ATTR G00,#11 [TRUE] L0018 SET_ATTR G00,#11 TEST_ATTR G00,#1e [FALSE] L0018 ADD G01,#05 -> G01 ADD G15,#05 -> G15 L0018: GET_CHILD L06 -> L04 [TRUE] L0019 L0019: STORE L03,#00 L0020: JE L04,#00 [TRUE] L0026 TEST_ATTR L04,#01 [TRUE] L0024 TEST_ATTR L04,#0e [TRUE] L0024 SET_ATTR L04,#0c INC L03 TEST_ATTR L04,#06 [TRUE] L0024 GET_PROP L04,#04 -> L02 JE L04,#82 [FALSE] L0021 TEST_ATTR "antiquated wireless",#19 [FALSE] L0021 STORE L02,S1007 L0021: TEST_ATTR L04,#07 [FALSE] L0022 TEST_ATTR L04,#0a [TRUE] L0022 GET_PROP L04,#14 -> L02 L0022: TEST_ATTR L04,#17 [FALSE] L0023 TEST_ATTR L04,#18 [TRUE] L0023 GET_PROP L04,#14 -> L02 L0023: JE L02,#00 [TRUE] L0024 NEW_LINE PRINT_PADDR L02 NEW_LINE STORE L05,#01 CLEAR_ATTR L04,#0c DEC L03 L0024: GET_SIBLING L04 -> L04 [TRUE] L0025 L0025: JUMP L0020 L0026: JE L03,#00 [FALSE] L0027 JUMP L0037 L0027: NEW_LINE JE L06,G00 [TRUE] L0028 PRINT "In the " PRINT_OBJ L06 PRINT " you" L0028: JE L06,G00 [FALSE] L0029 PRINT "You" L0029: PRINT " can " JE L05,#01 [FALSE] L0030 PRINT "also " L0030: PRINT "see " STORE L01,#00 GET_CHILD L06 -> L04 [TRUE] L0031 L0031: JE L04,#00 [TRUE] L0035 TEST_ATTR L04,#0c [FALSE] L0033 ADD L01,#01 -> L01 CALL_VN R0200 (L04,#01) SUB L03,#01 -> -(SP) JE L01,(SP)+ [FALSE] L0032 PRINT " and " L0032: SUB L03,#01 -> -(SP) JL L01,(SP)+ [FALSE] L0033 PRINT ", " L0033: GET_SIBLING L04 -> L04 [TRUE] L0034 L0034: JUMP L0031 L0035: JE L06,G00 [TRUE] L0036 PRINT ". " L0036: JE L06,G00 [FALSE] L0037 PRINT " here. " L0037: STORE G4c,#17 JE G00,#ec [FALSE] L0038 STORE G73,#ed TEST_ATTR "Lighthouse",#11 [FALSE] L0038 TEST_ATTR "Lighthouse",#19 [TRUE] L0038 SET_ATTR "Lighthouse",#19 PRINT " You can just make out the Pharos atop the cliffs. But it seems to be earlier, nearer dawn, than your last visit. " L0038: JE G00,#fc [FALSE] L0039 TEST_ATTR "Sea Shore",#11 [FALSE] L0039 TEST_ATTR "Sea Shore",#19 [TRUE] L0039 SET_ATTR "Sea Shore",#19 PRINT " The cliffs below are familiar, but it's a little later in the day than your arrival on the sea shore. " L0039: JE G00,#83 [FALSE] L0040 STORE G73,#85 L0040: JE G00,#cd [FALSE] L0041 STORE G73,#d1 L0041: JE G00,#dc [FALSE] L0042 STORE G72,#dd L0042: JE G00,#53 [FALSE] L0043 STORE G72,#55 L0043: JE G00,#d9 [FALSE] L0044 STORE G72,#da L0044: JE G00,#f9 [FALSE] L0045 STORE G72,#fb L0045: JE G00,#0117 [FALSE] L0046 STORE G72,#0119 L0046: JE G00,#011f [FALSE] L0047 STORE G72,#0120 L0047: JE G00,#0121 [FALSE] L0048 STORE G73,#0122 L0048: JE G00,#0162 [FALSE] L0049 STORE G73,#0163 L0049: JE G00,#0153 [FALSE] L0050 STORE G72,#0154 L0050: JE G00,#01c5 [FALSE] L0051 STORE G72,#01c6 L0051: JE G00,#0145 [FALSE] L0052 STORE G72,#0148 L0052: JE G00,#0168 [FALSE] L0053 STORE G73,#016b L0053: JE G00,#016c [FALSE] L0054 STORE G72,#016d L0054: JE G00,#0192 [FALSE] L0055 STORE G73,#0195 L0055: JE G00,#01b7 [FALSE] L0056 STORE G72,#01b9 L0056: JE G00,#01bc [FALSE] L0057 STORE G72,#01bd L0057: JE G00,#01c1 [FALSE] L0058 STORE G72,#01c2 L0058: CALL_1S R0028 -> -(SP) JE #01,(SP)+ [FALSE] L0059 RTRUE L0059: RTRUE Routine R0199, 1 local Action routine for: "l at NOUN" "check NOUN" JE G00,#0c [FALSE] L0001 PRINT_RET "Darkness, noun. An absence of light to see by." L0001: JE G4d,#23 [FALSE] L0002 PRINT_RET "As good-looking as ever." L0002: TEST_ATTR G4d,#1c [FALSE] L0003 CALL_1N R0286 RFALSE L0003: TEST_ATTR G4d,#20 [FALSE] L0004 PRINT_RET "A featureless mahogany rod, whose purpose is oblique. Well... almost featureless; there is a little silver plaque left blank near one end." L0004: JE G4d,#17,#19,#18 [TRUE] L0006 TEST_ATTR G4d,#12 [FALSE] L0006 PRINT "The silver plaque on this mahogany rod proclaims it as " CALL_2N R0290 (G4d) PRINT "." TEST_ATTR G4d,#14 [FALSE] L0005 PRINT_RET " It is fully charged up." L0005: NEW_LINE RTRUE L0006: TEST_ATTR G4d,#1b [FALSE] L0007 GET_PROP G4d,#13 -> L00 JE L00,#00 [TRUE] L0007 PRINT "A beautifully realistic picture. " L0007: JE G4d,#03 [FALSE] L0012 JE G00,#42 [FALSE] L0010 TEST_ATTR "slide projector",#18 [FALSE] L0010 GET_CHILD "slide projector" -> L00 [TRUE] L0008 L0008: JE L00,#00 [FALSE] L0009 PRINT_RET "The south wall is lit up by the projector." L0009: PRINT "The south wall shows " CALL_2N R0376 (L00) RFALSE L0010: JE G00,#49 [FALSE] L0012 TEST_ATTR "secret door",#01 [TRUE] L0012 TEST_ATTR "secret door",#0a [FALSE] L0011 PRINT_RET "There is a secret door in it, standing open." JUMP L0012 L0011: PRINT_RET "There is a partly concealed secret door in it, which would be easy to open." L0012: JE G4d,#3b [FALSE] L0014 GET_CHILD "photographer's flash" -> -(SP) [TRUE] L0013 L0013: JE (SP)+,#00 [TRUE] L0014 CALL_2N R0286 (#3b) RFALSE L0014: GET_PROP G4d,#02 -> L00 JE L00,#00 [FALSE] L0016 TEST_ATTR G4d,#08 [FALSE] L0015 CALL_1N R0286 RFALSE L0015: PRINT "You see nothing special about " CALL_2N R0290 (G4d) PRINT_RET "." L0016: PRINT_PADDR L00 NEW_LINE TEST_ATTR G4d,#17 [FALSE] L0018 PRINT "It is currently switched " TEST_ATTR G4d,#18 [FALSE] L0017 PRINT "on. " L0017: TEST_ATTR G4d,#18 [TRUE] L0018 PRINT "off. " L0018: CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0019 RTRUE L0019: RTRUE Routine R0200, 7 locals JE L01,#02 [TRUE] L0001 CALL_2N R0289 (L00) L0001: JE L01,#02 [FALSE] L0002 CALL_2N R0290 (L00) L0002: TEST_ATTR L00,#00 [FALSE] L0003 PRINT " (providing light)" L0003: TEST_ATTR L00,#02 [FALSE] L0004 PRINT " (being worn)" L0004: TEST_ATTR L00,#14 [FALSE] L0005 PRINT " (charged)" L0005: JE L00,#86 [FALSE] L0009 GET_CHILD G03 -> L04 [TRUE] L0006 L0006: JE L04,#00 [TRUE] L0009 TEST_ATTR L04,#13 [FALSE] L0007 PRINT " (which rustles as if with a magical wind)" JUMP L0009 L0007: GET_SIBLING L04 -> L04 [TRUE] L0008 L0008: JUMP L0006 L0009: JE L00,#25 [FALSE] L0010 TEST_ATTR L00,#0a [TRUE] L0010 JUMP L0026 L0010: TEST_ATTR L00,#08 [FALSE] L0026 JE L01,#02 [TRUE] L0011 PRINT " (which is " L0011: JE L01,#02 [FALSE] L0012 PRINT ", which is " L0012: TEST_ATTR L00,#0a [TRUE] L0013 PRINT "closed" TEST_ATTR L00,#09 [FALSE] L0013 JUMP L0025 L0013: TEST_ATTR L00,#0a [FALSE] L0014 PRINT "open" L0014: GET_CHILD L00 -> L02 [TRUE] L0015 L0015: JE L02,#00 [FALSE] L0016 PRINT " but empty" JUMP L0025 L0016: JE L01,#00 [FALSE] L0017 STORE L06,#01 JUMP L0025 L0017: PRINT " and contains " STORE L05,#00 STORE L03,L02 L0018: JE L03,#00 [TRUE] L0020 GET_SIBLING L03 -> L03 [TRUE] L0019 L0019: INC L05 JUMP L0018 L0020: STORE L04,#00 L0021: JE L02,#00 [TRUE] L0025 INC L04 CALL_VN R0200 (L02,#01) SUB L05,#01 -> -(SP) JE L04,(SP)+ [FALSE] L0022 PRINT " and " L0022: SUB L05,#01 -> -(SP) JL L04,(SP)+ [FALSE] L0023 PRINT ", " L0023: GET_SIBLING L02 -> L02 [TRUE] L0024 L0024: JUMP L0021 L0025: JE L01,#02 [TRUE] L0026 PRINT ")" L0026: RET L06 Routine R0201, 1 local Action routine for: "exhibit NOUN to CREATURE" JE G4e,#0120 [FALSE] L0007 CALL_1S R0293 -> -(SP) JE (SP)+,#00 [FALSE] L0006 PRINT "The demon glances lazily at " CALL_2N R0290 (G4d) PRINT " and rouses himself to say: "" GET_PROP G4d,#19 -> L00 JE L00,#ffff [FALSE] L0003 GET_PROP G4d,#1a -> -(SP) JE (SP)+,#ffff [TRUE] L0001 PRINT "I know about that, but my counterpart doesn't." JUMP L0002 L0001: PRINT "I know just what that's for." L0002: JUMP L0004 L0003: PRINT_PADDR L00 CLEAR_ATTR "demon",#19 L0004: TEST_ATTR G4d,#1a [FALSE] L0005 REMOVE_OBJ G4d PRINT_RET " Mmm... delicious!" Sloth and gluttony... two deadly sins in one minute. His boss will be pleased." L0005: PRINT_RET """ L0006: RFALSE L0007: JE G4e,#0122 [FALSE] L0013 CALL_1S R0294 -> -(SP) JE (SP)+,#00 [FALSE] L0012 PRINT "The angel looks conscientiously at " CALL_2N R0290 (G4d) PRINT " and rouses herself to say: "" GET_PROP G4d,#1a -> L00 JE L00,#ffff [FALSE] L0010 GET_PROP G4d,#19 -> -(SP) JE (SP)+,#ffff [TRUE] L0008 PRINT "I suppose you could ask, um, that tailed gentleman." JUMP L0009 L0008: PRINT "I'm afraid I'm don't know much about " CALL_2N R0290 (G4d) PRINT "." L0009: JUMP L0011 L0010: PRINT_PADDR L00 CLEAR_ATTR "angel",#19 L0011: PRINT_RET ""." L0012: RFALSE L0013: JE G4e,#0179 [FALSE] L0014 CALL_1N R0203 RTRUE L0014: JE G4e,#0148 [FALSE] L0015 JE G4d,#016a [FALSE] L0015 PRINT_RET "The squirrel finds them of great interest." L0015: CALL_2N R0291 (G4e) PRINT_RET " is unimpressed." Routine R0202, 1 local Action routine for: "feed CREATURE HELD" STORE L00,G4d STORE G4d,G4e STORE G4e,L00 STORE G4c,#0f CALL_1N R0203 RTRUE Routine R0203, 1 local Action routine for: "feed HELD to CREATURE" "feed over HELD to CREATURE" JE G4e,#0120 [FALSE] L0001 CALL_1N R0201 RFALSE L0001: JE G4e,#0122 [FALSE] L0002 CALL_1N R0201 RFALSE L0002: JE G4d,#8a [FALSE] L0003 PRINT_RET "Now that really would not be very kind." L0003: JE G4e,#d1 [FALSE] L0005 JE G4d,#d7 [FALSE] L0004 PRINT_RET "Gratefully she blows her nose but then returns the handkerchief. You refold it ingeniously." L0004: PRINT "She looks warily at " CALL_2N R0290 (G4d) PRINT_RET "." L0005: JE G4e,#85 [FALSE] L0011 JE G4d,#32 [FALSE] L0006 STORE L00,#32 REMOVE_OBJ L00 CALL_2N R0040 (#0a) SET_ATTR "Jemima",#19 PUT_PROP "Jemima",#02,S1008 PRINT_RET "Aunt Jemima pounces on the chocolates, wolfs down a strawberry cream and persuades you to have an unappetising toffee cracknell. "Now," she says, "Your turn for a daisy chain!" You try to look pleased. "Let's see, the others have had theirs... I have only a few colours left. What would you like?"" L0006: JE G4d,#27 [FALSE] L0007 PRINT "Jemima grudgingly takes the biscuit and nibbles at it, but she is still sulking. " CALL_1N R0313 REMOVE_OBJ "chocolate biscuit" RTRUE L0007: JE G4d,#36 [FALSE] L0008 PRINT_RET "Jemima looks very suspiciously at the pill. "Not just now, thanks."" L0008: JE G4d,#35 [FALSE] L0009 TEST_ATTR " ",#16 [FALSE] L0009 REMOVE_OBJ "red tablet" CLEAR_ATTR " ",#16 SET_ATTR " ",#0a PRINT_RET "Jemima takes the bottle absent-mindedly, opens it without the slightest difficulty and (before you can stop her) swallows the pill. You'd better hope it wouldn't have been useful anyway. "I'm always leaving my medicine lying around," she says vaguely as she hands the bottle back. "I'll forget my head one day."" L0009: PRINT "A peace offering is a nice idea, but somehow the " PRINT_OBJ G4d JE G4d,#31 [FALSE] L0010 PRINT " lacks style... after all, it isn't Christmas. " CALL_1N R0313 RTRUE L0010: PRINT_RET " seems inappropriate." L0011: JE G4e,#dd [FALSE] L0013 JE G4d,#011e [TRUE] L0012 PRINT_RET ""Ceci n'est pas argent," he explains wearily." L0012: REMOVE_OBJ G4d SET_ATTR G4d,#19 PRINT_RET "He takes the money. "Q'est-ce que vous desirez?"" L0013: JE G4e,#55 [FALSE] L0014 CALL_1N R0292 RFALSE L0014: JE G4e,#ed [FALSE] L0016 TEST_ATTR G4d,#1a [FALSE] L0016 JE G4d,#fa [FALSE] L0015 REMOVE_OBJ G4d STORE L00,#ee CLEAR_ATTR L00,#0f SET_ATTR L00,#06 REMOVE_OBJ L00 INSERT_OBJ L00,G03 PRINT_RET "She smiles as if to say there's not much point watching her waist-line any more, and hungrily wolfs down her favourite dessert. As a gesture of thanks, she takes off her amber hairband and hands it you. Quickly she readopts her noble pose, however, just in case anyone else is looking." L0015: PRINT_RET "She looks with obvious hunger, but her sense of duty wins out and she refuses." L0016: JE G4e,#fb [FALSE] L0017 JE G4d,#f6 [FALSE] L0017 REMOVE_OBJ G4d SET_ATTR "copper coin",#19 PRINT_RET "The bartender takes the coin wearily, with a "how can you eat at a time like this?" look." L0017: JE G4e,#c6 [FALSE] L0020 TEST_ATTR G4d,#1a [FALSE] L0018 REMOVE_OBJ G4d PRINT "The goat happily munches down " CALL_2N R0290 (G4d) PRINT_RET "." L0018: JE G4d,#35 [FALSE] L0019 CLEAR_ATTR " ",#16 SET_ATTR " ",#0a CALL_1N R0030 PRINT_RET "The medicine bottle cracks open in the goat's jaws!" L0019: JE G4d,#86 [FALSE] L0020 PRINT_RET "For heaven's sake, the daisy chain is far too useful for that." L0020: JE G4e,#0126 [FALSE] L0024 JE G4d,#6a [FALSE] L0021 CALL_1N R0313 PRINT_RET "Some cats do like the smell of chicken bones, but Austin doesn't." L0021: JE G4d,#75 [FALSE] L0022 INSERT_OBJ "robot mouse",G00 PRINT_RET "Austin claws it to the ground, captiously." L0022: TEST_ATTR G4d,#1a [FALSE] L0023 PRINT_RET "For once, Austin is not really hungry." L0023: PRINT "Austin is unimpressed with " CALL_2N R0290 (G4d) PRINT_RET "." L0024: JE G4e,#0195 [FALSE] L0025 PRINT_RET "She is staring fixedly at the table, meditating." L0025: JE G4e,#0148 [FALSE] L0028 TEST_ATTR G4d,#1a [FALSE] L0028 REMOVE_OBJ G4d JE G4d,#016a [FALSE] L0026 CALL_1N R0089 PRINT_RET "The squirrel is extremely pleased, and devours the nuts delightedly. You have an uncomfortable feeling of having been suckered." L0026: PRINT "Grateful for any food he can get, however unsuitable, the squirrel eagerly consumes " JE G4d,#fa [FALSE] L0027 PRINT "the " L0027: CALL_2N R0290 (G4d) PRINT_RET ". He does of course feel no obligation towards you at all as a result, so don't expect any favours." L0028: JE G4e,#0179 [FALSE] L0033 JE G4d,#9b [FALSE] L0029 INSERT_OBJ "marble rose","adamantine knight" PRINT_RET "The knight is exceedingly pleased, and takes the flower." L0029: JE G4d,#0197 [FALSE] L0032 GET_PARENT "marble rose" -> -(SP) JE (SP)+,#0179 [TRUE] L0030 PRINT_RET "The knight looks sadly at the picture." L0030: JE G00,#017a [TRUE] L0031 PRINT_RET "The knight looks at the picture sadly, unable to see its immediate relevance." L0031: INSERT_OBJ "marble rose","statue of Diana" SET_ATTR "adamantine knight",#19 PUT_PROP "statue of Diana",#04,S1009 CALL_2N R0040 (#2b) PRINT_RET "The knight, catching on, places the marble flower in Diana's hair, high up beyond your reach. Afterward, he bows to you gravely. But there is a little sadness in his eye as he turns away from her." L0032: PRINT_RET "The knight has forsworn earthly things in the service of Diana." L0033: JE G4e,#01b9,#01bd [FALSE] L0049 JE G4e,#01b9 [FALSE] L0034 JE G4d,#01af [TRUE] L0035 L0034: JE G4e,#01bd [FALSE] L0036 JE G4d,#01b0 [FALSE] L0036 L0035: PRINT_RET "He takes the tube, sees the letter on it, looks exasperated, clouts you over the head with the tube and pushes it back into your arms." L0036: JE G4d,#01af,#01b0 [FALSE] L0048 CALL_2N R0291 (G4e) PRINT " takes the tube and looks inside" GET_CHILD G4d -> L00 [TRUE] L0037 L0037: JE L00,#00 [FALSE] L0038 INSERT_OBJ G4d,G00 PRINT_RET " to find it is empty. He looks at you very darkly indeed but returns to his work, throwing the tube down impatiently." L0038: JE L00,#01b1,#01b2 [FALSE] L0047 PRINT " to see a scroll, which he pulls out eagerly. " JE G4e,#01b9 [FALSE] L0039 JE L00,#01b2 [TRUE] L0040 L0039: JE G4e,#01bd [FALSE] L0044 JE L00,#01b1 [FALSE] L0044 L0040: GET_PARENT "Apollonius" -> -(SP) GET_PARENT "Callimachus" -> -(SP) JE (SP)+,(SP)+ [FALSE] L0041 INSERT_OBJ L00,#00 INSERT_OBJ G4d,#00 INSERT_OBJ "purple sash",G00 INSERT_OBJ "mystic scroll",G00 INSERT_OBJ "Apollonius",G00 PUT_PROP "Apollonius",#04,S1010 CALL_2N R0040 (#26) PRINT_RET "One look is enough. He throws a vicious punch, and the librarians begin a savage bare-knuckled fist fight. This, shall we say, rather petty practical joke of yours does seem to have had one interesting consequence, though." L0041: INSERT_OBJ L00,#00 INSERT_OBJ G4d,#00 PRINT ""Arrghhhieee!" he says (untranslatably), boiling over with rage. He then curses repeatedly, but the only word you can make out is "" JE G4e,#01b9 [FALSE] L0042 PRINT "Apollonius" GET_PARENT "Apollonius" -> -(SP) INSERT_OBJ G4e,(SP)+ JUMP L0043 L0042: PRINT "Callimachus" GET_PARENT "Callimachus" -> -(SP) INSERT_OBJ G4e,(SP)+ L0043: SET_ATTR "Callimachus",#01 PUT_PROP "Apollonius",#04,S1011 PRINT_RET "". He pushes you out of his way and stomps off." L0044: PRINT ""Ahhhh..." he says (untranslatably) as he reads. " JE G4d,#01b9 [FALSE] L0045 PRINT "Eventually, after a very long wait, " JUMP L0046 L0045: PRINT "But soon " L0046: INSERT_OBJ G4d,G00 PRINT_RET "he finishes, puts the scroll back into the tube with the habit of a trained librarian, and drops it absentmindedly on the floor." L0047: PRINT " to find " CALL_2N R0289 (L00) PRINT ", which, to say the least, comes as a surprise. Such a fuss is kicked up that you are quickly thrown out into the street. " INSERT_OBJ G03,"Outside the Royal Museum" STORE G00,#01ab CALL_2N R0198 (#01) RFALSE L0048: PRINT_RET "How could you bribe such disinterested men of learning as the librarians?" L0049: JE G4e,#016d [FALSE] L0050 JE G4d,#016f [FALSE] L0050 PRINT_RET "Evans looks sadly at the mascot. But it is tarnished now, you have spoilt it. Your guilt increases further." L0050: CALL_2N R0291 (G4e) PRINT_RET " doesn't seem interested." Routine R0204, 0 locals Action routine for: "milk NOUN" JE G4d,#c6,#f1 [FALSE] L0001 PRINT_RET "Pour encourager les udders... But milking goats is no job for an amateur." L0001: PRINT_RET "What?" Routine R0205, 1 local Action routine for: "open NOUN with HELD" "unlock NOUN with HELD" TEST_ATTR G4d,#15 [TRUE] L0001 PRINT_RET "I can't see how to unlock that." L0001: TEST_ATTR G4d,#16 [TRUE] L0002 PRINT_RET "It is in fact unlocked now." L0002: GET_PROP G4d,#16 -> L00 JE L00,G4e [TRUE] L0003 PRINT_RET "That doesn't seem to fit the lock." L0003: CLEAR_ATTR G4d,#16 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0004 RTRUE L0004: PRINT "You unlock the " PRINT_OBJ G4d PRINT ". " RTRUE Routine R0206, 1 local Action routine for: "lock NOUN with HELD" TEST_ATTR G4d,#15 [TRUE] L0001 PRINT_RET "I can't see how to lock that." L0001: TEST_ATTR G4d,#16 [FALSE] L0002 PRINT_RET "It is in fact locked now." L0002: TEST_ATTR G4d,#0a [FALSE] L0003 PRINT_RET "First you'll have to close it." L0003: GET_PROP G4d,#16 -> L00 JE L00,G4e [TRUE] L0004 PRINT_RET "That doesn't seem to fit the lock." L0004: SET_ATTR G4d,#16 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0005 RTRUE L0005: PRINT "You lock the " PRINT_OBJ G4d PRINT ". " RTRUE Routine R0207, 0 locals Action routine for: "rotate NOUN on" "rotate on NOUN" "flip NOUN" "flip NOUN on" "flip on NOUN" JE G4d,#25 [FALSE] L0001 PRINT_RET "There's no switch, just a battery compartment." L0001: TEST_ATTR G4d,#17 [TRUE] L0002 PRINT_RET "That's not something you can switch." L0002: TEST_ATTR G4d,#18 [FALSE] L0003 PRINT_RET "It's already on." L0003: SET_ATTR G4d,#18 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0004 RTRUE L0004: PRINT "You switch the " PRINT_OBJ G4d PRINT " on. " RTRUE Routine R0208, 0 locals Action routine for: "rotate NOUN off" "rotate off NOUN" "flip NOUN off" "flip off NOUN" JE G4d,#25 [FALSE] L0001 PRINT_RET "There's no switch, just a battery compartment." L0001: TEST_ATTR G4d,#17 [TRUE] L0002 PRINT_RET "That's not something you can switch." L0002: TEST_ATTR G4d,#18 [TRUE] L0003 PRINT_RET "It's already off." L0003: CLEAR_ATTR G4d,#18 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0004 RTRUE L0004: PRINT "You switch the " PRINT_OBJ G4d PRINT " off. " RTRUE Routine R0209, 0 locals Action routine for: "knock on NOUN" "knock at NOUN" TEST_ATTR G4d,#07 [TRUE] L0001 PRINT "(If you insist.) " L0001: PRINT_RET "There is no reply." Routine R0210, 0 locals Action routine for: "talk" "talk to CREATURE" PRINT_RET "[See the instructions for how to address people in the game.]" Routine R0211, 0 locals Action routine for: "open NOUN" JE G4d,#50 [FALSE] L0001 PRINT_RET "How, exactly?" L0001: JE G4d,#cf [FALSE] L0002 PRINT_RET "It seems immovable, as if made of solid iron." L0002: JE G4d,#5d [FALSE] L0003 PRINT_RET "It's old and gummed up somehow." L0003: TEST_ATTR G4d,#0b [TRUE] L0004 PRINT_RET "That's not something you can open." L0004: TEST_ATTR G4d,#16 [FALSE] L0005 PRINT_RET "It seems to be locked." L0005: TEST_ATTR G4d,#0a [FALSE] L0006 PRINT_RET "It's already open." L0006: SET_ATTR G4d,#0a CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0007 RTRUE L0007: PRINT "You open the " PRINT_OBJ G4d PRINT ". " TEST_ATTR G4d,#08 [FALSE] L0008 NEW_LINE CALL_1N R0286 L0008: RTRUE Routine R0212, 0 locals Action routine for: "close NOUN" JE G4d,#50 [FALSE] L0001 PRINT_RET "How, exactly?" L0001: TEST_ATTR G4d,#0b [TRUE] L0002 PRINT_RET "That's not something you can close." L0002: TEST_ATTR G4d,#0a [TRUE] L0003 PRINT_RET "It's already closed." L0003: CLEAR_ATTR G4d,#0a CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0004 RTRUE L0004: PRINT "You close the " PRINT_OBJ G4d PRINT ". " RTRUE Routine R0213, 0 locals Action routine for: "get off HELD" "extract HELD" "disrobe HELD" TEST_ATTR G4d,#02 [TRUE] L0001 PRINT_RET "You're not wearing that." L0001: CLEAR_ATTR G4d,#02 PRINT "You take off the " PRINT_OBJ G4d PRINT ". " RTRUE Routine R0214, 1 local Action routine for: "assume HELD" "hang on HELD" TEST_ATTR G4d,#03 [TRUE] L0001 PRINT_RET "You can't wear that!" L0001: GET_PARENT G4d -> L00 JE L00,G03 [TRUE] L0002 PRINT_RET "You're not holding that!" L0002: TEST_ATTR G4d,#02 [FALSE] L0003 PRINT_RET "You're already wearing that!" L0003: SET_ATTR G4d,#02 CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0004 RTRUE L0004: PRINT "You put on the " PRINT_OBJ G4d PRINT ". " RTRUE Routine R0215, 2 locals Action routine for: "objects" PRINT "Objects you have handled: " STORE L00,#01 L0001: JG L00,#01d2 [TRUE] L0011 TEST_ATTR L00,#06 [FALSE] L0010 CALL_2N R0290 (L00) GET_PARENT L00 -> L01 JE L01,G03 [FALSE] L0004 TEST_ATTR L01,#02 [FALSE] L0002 PRINT " (worn)" JUMP L0003 L0002: PRINT " (held)" L0003: JUMP L0009 L0004: TEST_ATTR L01,#04 [FALSE] L0005 PRINT " (given away)" JUMP L0009 L0005: TEST_ATTR L01,#11 [FALSE] L0006 PRINT " (in " PRINT_OBJ L01 PRINT ")" JUMP L0009 L0006: TEST_ATTR L01,#0d [FALSE] L0007 PRINT " (in " CALL_2N R0290 (L01) PRINT ")" JUMP L0009 L0007: TEST_ATTR L01,#08 [FALSE] L0008 PRINT " (inside " PRINT_OBJ L01 PRINT ")" JUMP L0009 L0008: PRINT " (lost)" L0009: NEW_LINE L0010: INC L00 JUMP L0001 L0011: RTRUE Routine R0216, 3 locals Action routine for: "places" PRINT "You have visited: " STORE L00,#1d STORE L01,#00 L0001: JL L00,#01d2 [FALSE] L0003 TEST_ATTR L00,#11 [FALSE] L0002 INC L01 L0002: INC L00 JUMP L0001 L0003: STORE L00,#1d STORE L02,#00 L0004: JL L00,#01d2 [FALSE] L0008 TEST_ATTR L00,#11 [FALSE] L0007 PRINT_OBJ L00 INC L02 JE L02,L01 [FALSE] L0005 PRINT_RET "." L0005: SUB L01,#01 -> -(SP) JE (SP)+,L02 [FALSE] L0006 PRINT " and " L0006: SUB L01,#01 -> -(SP) JG (SP)+,L02 [FALSE] L0007 PRINT ", " L0007: INC L00 JUMP L0004 L0008: RTRUE Routine R0217, 0 locals Action routine for: "y" "no" PRINT_RET "That was a rhetorical question." Routine R0218, 0 locals Action routine for: "plover" PRINT_RET "For a moment you can almost hear a hoarse voice say something to you. But it passes." Routine R0219, 0 locals Action routine for: "answer lagach to NOUN" "lagach" PRINT_RET "You feel inexplicably powerful, but nothing happens. Perhaps you should have addressed yourself more precisely." Routine R0220, 3 locals JE G4c,#4b [TRUE] L0001 PRINT_RET "There is, unsurprisingly, no reply." L0001: STORE L00,#00 JE G00,#fe [FALSE] L0002 STORE L00,#01 L0002: JE G00,#91 [FALSE] L0003 STORE L00,#02 L0003: JE G00,#9c [FALSE] L0004 STORE L00,#03 L0004: JE G00,#cc [FALSE] L0005 STORE L00,#04 L0005: JE G00,#bb [FALSE] L0006 STORE L00,#05 L0006: JE G00,#01a9 [FALSE] L0007 STORE L00,#06 L0007: JE G00,#0139 [FALSE] L0008 STORE L00,#07 L0008: JE L00,#00 [FALSE] L0009 PRINT_RET "No reply." L0009: TEST_ATTR "tourist map of Paris",#06 [FALSE] L0010 PRINT_RET "Nothing happens! Already the druids' magic fades from the earth, and you cannot help feeling saddened." L0010: INC L00 JE L00,#08 [FALSE] L0011 STORE L00,#01 L0011: JE L00,#01 [FALSE] L0012 STORE L01,#fe STORE L02,#04 L0012: JE L00,#02 [FALSE] L0013 STORE L01,#91 STORE L02,#05 L0013: JE L00,#03 [FALSE] L0014 STORE L01,#9c STORE L02,#09 L0014: JE L00,#04 [FALSE] L0015 STORE L01,#cc STORE L02,#02 L0015: JE L00,#05 [FALSE] L0016 STORE L01,#bb STORE L02,#03 L0016: JE L00,#06 [FALSE] L0017 STORE L01,#01a9 STORE L02,#0b L0017: JE L00,#07 [FALSE] L0018 STORE L01,#0139 STORE L02,#01 L0018: TEST_ATTR L01,#11 [TRUE] L0019 JUMP L0010 L0019: JE L01,G00 [FALSE] L0020 PRINT_RET "A swirl of wind almost bowls you over, but nothing else happens." L0020: REMOVE_OBJ G03 INSERT_OBJ G03,L01 STORE G00,L01 STORE G06,L02 PRINT "A swirl of wind snakes out from " CALL_2N R0290 (G4b) PRINT " and whisks you away to... " CALL_1N R0198 RTRUE Routine R0221, 0 locals Action routine for: "shantih" "shantih SPECIAL" "shantih SPECIAL SPECIAL" PRINT_RET "For a moment you can almost hear thunder, as though it were saying something. But the moment passes." Routine R0222, 0 locals Action routine for: "burn NOUN" PRINT_RET "In this game, arson is (usually) forbidden." Routine R0223, 0 locals Action routine for: "pray" PRINT_RET "The heavenly host can be quite helpful in this game, but you'll have to ask them directly." Routine R0224, 0 locals Action routine for: "awake" "awake up" JE G06,#08 [FALSE] L0001 PRINT_RET "You are unable to shake off the dream." L0001: JE G06,#0a [FALSE] L0002 PRINT_RET "It doesn't seem to be that easy." L0002: PRINT_RET "The dreadful truth is, this is not a dream." Routine R0225, 0 locals Action routine for: "awake CREATURE" "awake up CREATURE" JE G4d,#0154 [FALSE] L0001 TEST_ATTR "Homer",#19 [TRUE] L0001 SET_ATTR "Homer",#19 PUT_PROP "Homer",#15,#00 PUT_PROP "Homer",#04,S1012 PRINT_RET "Homer wakes up, with a start. "I suppose you want the syrinx," he grumbles, "they always do. There are three questions you must answer wisely. The usual deal." (He seems to be under an enchantment and able to speak modern English, or at least American.) "First: who is the brother of Menelaus?"" L0001: JE G4d,#0119 [TRUE] L0002 PRINT_RET "That seems rather unnecessary." L0002: PRINT_RET "The spy is too deeply unconscious." Routine R0226, 0 locals Action routine for: "embrace CREATURE" JE G4d,#85 [FALSE] L0001 PRINT "She is slightly mollified, but only slightly. " CALL_1N R0313 RTRUE L0001: JE G4d,#ed [FALSE] L0002 PRINT "She evades you deftly, after years of practice with Greek men. " RTRUE L0002: JE G4d,#d1 [FALSE] L0003 PRINT "She kisses you forcibly. Her mouth tastes of tobacco. " RTRUE L0003: PRINT_RET "Keep your mind on the game." Routine R0227, 0 locals Action routine for: "think" PRINT_RET "Worth a try, anyway. Why don't you?" Routine R0228, 1 local Action routine for: "smell" "smell NOUN" TEST_ATTR "gas mask",#02 [FALSE] L0001 PRINT_RET "You can't smell much with the gas mask on." L0001: JE G00,#cd [FALSE] L0002 PRINT_RET "You feel briefly incensed." L0002: JE G00,#01a9 [FALSE] L0003 PRINT_RET "Why do you only ever smell hard in unpleasant places? The odour is repulsive in a termites-and-honey kind of way." L0003: JE G00,#a1,#9e,#a0 [FALSE] L0004 PRINT_RET "Ugh." L0004: JE G00,#a2 [FALSE] L0007 GET_PROP "Catacombs",#15 -> L00 INC L00 PUT_PROP "Catacombs",#15,L00 JE L00,#01 [FALSE] L0005 PRINT_RET "Something like... perhaps, air after a thunderstorm... but no, you still can't be sure what it is." L0005: JE L00,#02 [FALSE] L0006 INSERT_OBJ " ","Catacombs" PUT_PROP "Catacombs",#12,#aa STORE G26,#01 CALL_2N R0040 (#0e) PRINT_RET "Ozone! That's what it's called. Funny sort of odour for a cave - especially since, on investigating further, you find that it's drifting up from a concealed aluminium staircase." L0006: PRINT_RET "Definitely ozone." L0007: PRINT_RET "You smell nothing unexpected." Routine R0229, 0 locals Action routine for: "hear" "hear NOUN" "hear to NOUN" PRINT_RET "You hear nothing unexpected." Routine R0230, 0 locals Action routine for: "taste" PRINT_RET "You taste nothing unexpected." Routine R0231, 0 locals Action routine for: "diagnose" PRINT_RET "Hang on a moment... yes, you're still breathing. Keep it up!" Routine R0232, 0 locals Action routine for: "feel" PRINT_RET "You feel nothing unexpected." Routine R0233, 0 locals Action routine for: "feel NOUN" JE G4d,#0126 [FALSE] L0001 PRINT_RET "Austin curls about your foot implacably." L0001: TEST_ATTR G4d,#04 [FALSE] L0002 PRINT_RET "Keep your hands to yourself!" L0002: PRINT_RET "You feel nothing unexpected." Routine R0234, 0 locals Action routine for: "dig with HELD" JE G4d,#013e [TRUE] L0001 PRINT_RET "Not really a suitable implement." L0001: CALL_1N R0235 RTRUE Routine R0235, 0 locals Action routine for: "dig" "dig SPECIAL" GET_PARENT " " -> -(SP) JE (SP)+,G03 [TRUE] L0001 PRINT_RET "You have nothing really suitable to hand." L0001: JE G00,#93,#b1 [FALSE] L0002 PRINT_RET "You succeed only in turning the earth further." L0002: JE G00,#91 [FALSE] L0003 PRINT_RET "Archaeology is not for the amateur!" L0003: JE G00,#0166 [FALSE] L0004 PRINT_RET "The gravel is thin and lies on concrete." L0004: JE G00,#98 [FALSE] L0005 PRINT_RET "Surreal!" L0005: JE G00,#0149 [TRUE] L0006 PRINT_RET "The ground is unsuitable." L0006: JE G34,#00 [FALSE] L0007 JE G35,#00 [FALSE] L0007 PRINT_RET "You surely don't want to dig here, right in the middle of such a fine lawn. The peg would fall out, and that would never do." L0007: PRINT "You dig an energetic little hole in the superb turf" GET_PARENT "dug hole" -> -(SP) JE (SP)+,#0149 [FALSE] L0011 PRINT ", filling your last one up with the earth uncovered" L0008: GET_CHILD "dug hole" -> -(SP) [TRUE] L0009 L0009: JE (SP)+,#00 [TRUE] L0011 GET_CHILD "dug hole" -> -(SP) [TRUE] L0010 L0010: REMOVE_OBJ (SP)+ STORE G83,#02 JUMP L0008 L0011: JE G34,G36 [FALSE] L0012 JE G35,G37 [FALSE] L0012 TEST_ATTR "strongbox",#06 [TRUE] L0012 PRINT ", until your spade bumps into something solid" INSERT_OBJ "strongbox","dug hole" CALL_2N R0040 (#23) JUMP L0013 L0012: JE G83,#01 [FALSE] L0013 STORE G83,#00 PRINT ", failing to find whatever it was you buried" L0013: INSERT_OBJ "dug hole","Croquet Lawn" JE G83,#02 [FALSE] L0014 STORE G83,#01 L0014: PRINT_RET "." Routine R0236, 0 locals Action routine for: "beep" PRINT_RET "Are you feeling quite right?" Routine R0237, 0 locals Action routine for: "dance with CREATURE" CALL_2N R0291 (G4d) PRINT_RET " does not wish to dance with you." Routine R0238, 0 locals Action routine for: "chop NOUN" PRINT_RET "In this game, cutting things up is never helpful." Routine R0239, 0 locals Action routine for: "hop" JE G00,#98,#b0 [FALSE] L0001 STORE G05,#01 PRINT_RET "You fall and break your neck!" L0001: JE G00,#52 [FALSE] L0002 PRINT_RET "You're far too cowardly to jump to the balcony from here, when there must be a perfectly good route from inside the attic somewhere." L0002: GET_PARENT "Austin" -> -(SP) JE G00,(SP)+ [FALSE] L0005 JE G06,#0b [FALSE] L0003 PRINT_RET "Austin is quite unruffled." L0003: PRINT "For some reason, Austin is startled and springs for his life " CALL_2N R0041 (#07) JE G00,#42 [FALSE] L0004 GET_PARENT "charcoal sketch" -> -(SP) JE (SP)+,#43 [FALSE] L0004 TEST_ATTR "south wall",#01 [TRUE] L0004 INSERT_OBJ "Austin","Causeway" CALL_2N R0040 (#24) PRINT_RET "right up through the south wall and into Alexandria!" L0004: CALL_2N R0098 (#01) RFALSE L0005: PRINT_RET "You jump on the spot, fruitlessly." Routine R0240, 0 locals Action routine for: "hop over NOUN" PRINT_RET "In this game, it is never useful to jump over things." Routine R0241, 0 locals Action routine for: "add HELD" "add HELD to NOUN" "add HELD with NOUN" PRINT_RET "In this game, it is seldom useful to tie things." Routine R0242, 0 locals Action routine for: "rotate with NOUN" PRINT_RET "You'll have to be more specific." Routine R0243, 0 locals Action routine for: "rotate NOUN with NOUN" JE G4e,#6b [TRUE] L0001 CALL_2N R0291 (#6b) PRINT_RET " is unsuitable for turning things." L0001: JE G4d,#0d [FALSE] L0002 JE G00,#3f [FALSE] L0002 CALL_VN R0026 (#0d,#00,#3d) RFALSE L0002: PRINT "(The wrench seems unnecessary, so you use bare hands.) " CALL_VN R0026 (G4d,#00,#3d) RTRUE Routine R0244, 0 locals Action routine for: "lean HELD against NOUN" "lean HELD on NOUN" JE G00,#ae [TRUE] L0001 PRINT_RET "That won't achieve anything very much." L0001: JE G4e,#0d [TRUE] L0002 PRINT_RET "That isn't in conspicuous need of support." L0002: JE G4d,#74 [TRUE] L0003 PRINT_RET "That isn't a particularly good support." L0003: REMOVE_OBJ "old timber spar" INSERT_OBJ "old timber spar","Folly" PUT_PROP "old timber spar",#04,S1013 CLEAR_ATTR "old timber spar",#06 PUT_PROP "bean pole",#15,#00 SET_ATTR "old timber spar",#19 CLEAR_ATTR "bean pole",#19 PRINT_RET "You lean the timber prop against the Folly tower, supporting it. (Better just hope you won't be needing the prop for anything else!)" Routine R0245, 1 local Action routine for: "lean up NOUN with HELD" "lean NOUN with HELD" STORE L00,G4d STORE G4d,G4e STORE G4e,L00 CALL_1N R0244 RTRUE Routine R0246, 2 locals DEC L00 LOADB G19,L00 -> L01 JE L01,#00 [FALSE] L0001 PRINT ". " RFALSE L0001: SUB #41,#01 -> -(SP) ADD L01,(SP)+ -> L01 PRINT_CHAR L01 PRINT " " RTRUE Routine R0247, 0 locals CALL_1N R0171 PRINT " " CALL_2N R0246 (#01) CALL_2N R0246 (#02) CALL_2N R0246 (#03) PRINT " + + " PRINT " " CALL_2N R0246 (#04) CALL_2N R0246 (#05) CALL_2N R0246 (#06) PRINT " + + " PRINT " " CALL_2N R0246 (#07) CALL_2N R0246 (#08) CALL_2N R0246 (#09) PRINT " + + " PRINT " " CALL_2N R0246 (#0a) CALL_2N R0246 (#0b) CALL_2N R0246 (#0c) PRINT " + + " PRINT " " CALL_2N R0246 (#0d) CALL_2N R0246 (#0e) CALL_2N R0246 (#0f) NEW_LINE CALL_1N R0172 RTRUE Routine R0248, 0 locals CALL_VN R0150 (#04,#0178) CLEAR_ATTR "Contraption ",#19 RTRUE Routine R0249, 0 locals CALL_VN R0150 (#04,#0183) SET_ATTR "Contraption ",#19 RTRUE Routine R0250, 2 locals LOADB G19,#00 -> L00 LOADB G19,#02 -> L01 STOREB G19,#02,L00 STOREB G19,#00,L01 LOADB G19,#03 -> L00 LOADB G19,#05 -> L01 STOREB G19,#05,L00 STOREB G19,#03,L01 LOADB G19,#06 -> L00 LOADB G19,#08 -> L01 STOREB G19,#08,L00 STOREB G19,#06,L01 LOADB G19,#09 -> L00 LOADB G19,#0b -> L01 STOREB G19,#0b,L00 STOREB G19,#09,L01 LOADB G19,#0c -> L00 LOADB G19,#0e -> L01 STOREB G19,#0e,L00 STOREB G19,#0c,L01 RTRUE Routine R0251, 0 locals CALL_VN R0150 (#06,#0189) CALL_VN R0150 (#07,#018b) CLEAR_ATTR "metal wall",#19 PUT_PROP "Contraption ",#09,#a4 PUT_PROP "Contraption ",#0a,#00 PUT_PROP "metal wall",#08,#09 CALL_1N R0250 RTRUE Routine R0252, 0 locals CALL_VN R0150 (#06,#018d) CALL_VN R0150 (#07,#018f) SET_ATTR "metal wall",#19 PUT_PROP "Contraption ",#0a,#a4 PUT_PROP "Contraption ",#09,#00 PUT_PROP "metal wall",#08,#0a CALL_1N R0250 RTRUE Routine R0253, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#04 [FALSE] L0001 TEST_ATTR "metal wall",#19 [FALSE] L0001 PRINT_RET "You bump into an invisible barrier - perhaps the edge of the reflection." L0001: JE G4c,#18 [TRUE] L0002 RFALSE L0002: JE G4d,#0d [TRUE] L0003 RFALSE L0003: PRINT "There are fourteen pieces in the grid, and one gap. The pieces have letters upon them " TEST_ATTR "metal wall",#19 [FALSE] L0004 PRINT "(in reflected script) " L0004: PRINT "and are arranged as follows: " CALL_1N R0247 PRINT_RET " [Try "slide b", for instance, to move a piece into the gap.]" Routine R0254, 3 locals Action routine for: "slide SPECIAL" JE G00,#a3 [TRUE] L0001 PRINT_RET ""Slide" is inappropriate here." L0001: JE G75,#01 [FALSE] L0002 STORE G51,#01 L0002: JE G51,#00 [FALSE] L0003 PRINT_RET "What piece was that?" L0003: STORE L00,#00 DEC L00 L0004: JL L00,#0e [FALSE] L0009 INC L00 LOADB G19,L00 -> -(SP) JE (SP)+,G51 [FALSE] L0008 JL L00,#03 [TRUE] L0005 SUB L00,#03 -> L01 LOADB G19,L01 -> -(SP) JE (SP)+,#00 [FALSE] L0005 JUMP L0010 L0005: JL L00,#0c [FALSE] L0006 ADD L00,#03 -> L01 LOADB G19,L01 -> -(SP) JE (SP)+,#00 [FALSE] L0006 JUMP L0010 L0006: MOD L00,#03 -> L02 JE L02,#00 [TRUE] L0007 SUB L00,#01 -> L01 LOADB G19,L01 -> -(SP) JE (SP)+,#00 [FALSE] L0007 JUMP L0010 L0007: JE L02,#02 [TRUE] L0008 ADD L00,#01 -> L01 LOADB G19,L01 -> -(SP) JE (SP)+,#00 [FALSE] L0008 JUMP L0010 L0008: JUMP L0004 L0009: PRINT "Unfortunately, " SUB #41,#01 -> -(SP) ADD G51,(SP)+ -> L00 PRINT_CHAR L00 PRINT_RET " is not adjacent to the gap." L0010: INC G33 JE G33,#08 [FALSE] L0011 CALL_2N R0041 (#24) L0011: JE G33,#05 [FALSE] L0012 CALL_2N R0041 (#2a) L0012: LOADB G19,L00 -> L02 STOREB G19,L01,L02 STOREB G19,L00,#00 PRINT "You slide '" SUB #41,#01 -> -(SP) ADD G51,(SP)+ -> L00 PRINT_CHAR L00 PRINT "' into the gap, leaving the grid looking like: " CALL_1N R0247 STORE L00,#00 DEC L00 L0013: JL L00,#0e [FALSE] L0015 INC L00 LOADB G19,L00 -> L01 LOADB G1a,L00 -> -(SP) JE L01,(SP)+ [TRUE] L0014 RFALSE L0014: JUMP L0013 L0015: CALL_2N R0040 (#10) PRINT " There is a click from the mechanism. Pulleys pull. Cogs spin. Little bits of string run. " TEST_ATTR "Contraption ",#19 [TRUE] L0026 CALL_1N R0249 PRINT " The cannonball drops out of the metal hand, and falls into the higher basket, which plunges down, hurling the other basket upwards, " GET_CHILD "hanging cord" -> L01 [TRUE] L0016 L0016: JE L01,#00 [FALSE] L0017 PRINT_RET "but it must have been empty." L0017: GET_SIBLING L01 -> L01 [TRUE] L0018 L0018: PRINT "and projecting " JE L01,#00 [FALSE] L0019 PRINT "something" JUMP L0020 L0019: PRINT "some things" L0020: PRINT " up the hole in the corner." NEW_LINE TEST_ATTR "Contraption ",#00 [FALSE] L0023 GET_CHILD "hanging cord" -> L01 [TRUE] L0021 L0021: JE L01,#00 [TRUE] L0023 GET_SIBLING L01 -> L00 [TRUE] L0022 L0022: REMOVE_OBJ L01 INSERT_OBJ L01,"Lawn Ornaments" STORE L01,L00 JUMP L0021 L0023: TEST_ATTR "Contraption ",#00 [TRUE] L0024 PRINT " A moment later, however, there is a distant but loud thump. A moment after that, something plummets back down out of the hole (in a shower of thin white plaster) and into the higher basket, which (owing to fantastic machinery) wrenches down again, hurling the cannonball in the other end up into the air. The metal hand catches the cannonball beautifully. " CALL_1N R0248 L0024: GET_PARENT "glowing golden orb" -> -(SP) JE (SP)+,#39 [FALSE] L0025 INSERT_OBJ "glowing golden orb","Contraption " JUMP L0026 L0025: REMOVE_OBJ "glowing golden orb" L0026: RTRUE Routine R0255, 0 locals Action routine for: "drink" JE G00,#d6 [FALSE] L0001 PRINT_RET "Ugh! What foul water." L0001: JE G00,#8d [FALSE] L0002 PRINT_RET "Just about drinkable. Not much fun, though." L0002: JE G00,#0109 [FALSE] L0003 PRINT_RET "Delicious clear and unpolluted." L0003: JE G00,#ec [FALSE] L0004 PRINT_RET "Salt water! You must be joking." L0004: PRINT_RET "There's nothing suitable to drink here." Routine R0256, 0 locals Action routine for: "fill NOUN" JE G00,#0149 [FALSE] L0007 GET_PARENT "dug hole" -> -(SP) JE (SP)+,#0149 [FALSE] L0001 JE G4d,#014d [TRUE] L0002 L0001: PRINT_RET "What?" L0002: PRINT "You fill in the hole, restoring the turf." L0003: GET_CHILD "dug hole" -> -(SP) [TRUE] L0004 L0004: JE (SP)+,#00 [TRUE] L0006 GET_CHILD "dug hole" -> -(SP) [TRUE] L0005 L0005: REMOVE_OBJ (SP)+ JUMP L0003 L0006: REMOVE_OBJ "dug hole" RFALSE L0007: JE G00,#d6 [FALSE] L0008 JUMP L0012 L0008: JE G00,#8d [FALSE] L0009 JUMP L0012 L0009: JE G00,#0109 [FALSE] L0010 JUMP L0012 L0010: JE G00,#ec [FALSE] L0011 JUMP L0012 L0011: PRINT_RET "Try "get all" and then "put all in..."." L0012: PRINT_RET "Don't go carting water about, for heaven's sake, it'll only make a mess of your clothes and all your spare clothes are packed." Routine R0257, 0 locals Action routine for: "sorry" TEST_ATTR "carbolic soap",#01 [FALSE] L0001 PRINT_RET "Oh, don't apologise." L0001: PRINT_RET "Sorry isn't good enough!" Routine R0258, 1 local Action routine for: "wash mouth with HELD" "wash mouth out with HELD" JE G4d,#01d2 [TRUE] L0001 PRINT_RET "That's not something you can wash with." L0001: STORE L00,#01d2 REMOVE_OBJ L00 SET_ATTR "carbolic soap",#01 PRINT_RET "Ugh, it tastes absolutely ghastly. But you feel better for it." Routine R0259, 1 local Action routine for: "bugger" "bugger SPECIAL" "bugger at SPECIAL" STORE L00,#01d2 REMOVE_OBJ L00 INSERT_OBJ L00,G03 CLEAR_ATTR "carbolic soap",#01 PRINT_RET "Now, that sort of language is an absolute disgrace, and you're going to have to pay the price for it." Routine R0260, 0 locals Action routine for: "bother" "bother SPECIAL" PRINT_RET "It's good that you can express your frustration in such a mild way." Routine R0261, 0 locals Action routine for: "attack NOUN with HELD" "strike NOUN with HELD" JE G4d,#0144 [FALSE] L0001 JE G4e,#0142 [TRUE] L0002 L0001: CALL_1N R0262 RFALSE L0002: GET_PARENT "hard wooden ball" -> -(SP) JE (SP)+,G00 [TRUE] L0003 PRINT_RET "The ball is not on the ground." L0003: CALL_2N R0041 (#0f) PRINT "You strike the ball with the mallet, and a pleasing cracking sound. " JE G00,#90 [FALSE] L0004 PRINT_RET " The ball ricochets around the ornaments as on a pinball table." L0004: JE G00,#0149 [FALSE] L0005 GET_PROP "Croquet Lawn",#0f -> -(SP) JE (SP)+,#00 [TRUE] L0006 L0005: RFALSE L0006: PRINT " The ball runs smoothly across the lawn" GET_PARENT "dug hole" -> -(SP) JE (SP)+,#0149 [FALSE] L0007 INSERT_OBJ "hard wooden ball","dug hole" PRINT_RET ", and falls in the hole." L0007: REMOVE_OBJ "hard wooden ball" PUT_PROP "Croquet Lawn",#0f,#0145 PUT_PROP "Lawn Ornaments",#18,S1014 PUT_PROP "Mosaic",#0b,#0145 PRINT_RET ", along to the northwestern hedge and into an irate squirrel. In a sudden rustle he leaps away, knocking aside a rotten branch and uncovering a tiny gap through the hedge." Routine R0262, 2 locals Action routine for: "attack NOUN" JE G4d,#85 [FALSE] L0001 CALL_2N R0041 (#1c) PRINT_RET "Well, she's annoying, but that's family for you." L0001: JE G4d,#da [FALSE] L0002 PRINT_RET "You are unable to touch the man. It is as if he isn't there." L0002: JE G4d,#55 [FALSE] L0003 PRINT_RET "Ectoplasm is as nice to touch as its reputation suggests." L0003: JE G4d,#0120 [FALSE] L0004 PRINT_RET "A little late for that now." L0004: JE G4d,#0122 [FALSE] L0005 PRINT_RET "That is possibly not a very far-sighted act." L0005: JE G4d,#ed [FALSE] L0006 PRINT_RET "No need, if the sea-monster is all it's cracked up to be." L0006: JE G4d,#d1 [FALSE] L0007 PRINT_RET "She mesmerises you back. She hasn't lived all these centuries in the Latin Quarter for nothing, you know." L0007: JE G4d,G03 [FALSE] L0011 JE G06,#0a [FALSE] L0011 STORE G06,#01 STORE L00,#04 GET_CHILD L00 -> L00 [TRUE] L0008 L0008: JE L00,#00 [TRUE] L0010 GET_SIBLING L00 -> L01 [TRUE] L0009 L0009: REMOVE_OBJ L00 INSERT_OBJ L00,G03 STORE L00,L01 JUMP L0008 L0010: PRINT "Ouch! You wake up, smarting. " INSERT_OBJ G03,"comfortable bed" STORE G00,#5b CALL_2N R0041 (#2c) RFALSE L0011: JE G4d,#0179 [FALSE] L0012 PRINT_RET "He is adamant." L0012: JE G4d,#0163 [FALSE] L0013 PRINT_RET "As you ought to know, the Oracle is inviolable." L0013: JE G4d,#0154 [FALSE] L0014 PRINT_RET "What, strike the greatest poet who ever lived?" L0014: PRINT_RET "Violence is seldom the answer, you know." Routine R0263, 0 locals Action routine for: "dive" JE G00,#0181,#01c5,#0185 [FALSE] L0001 PRINT_RET "The waters are deceptively treacherous. Best not." L0001: JE G00,#0189,#0188 [FALSE] L0002 PRINT_RET "You are utterly content where you are." L0002: JE G00,#d6 [FALSE] L0003 PRINT_RET "Swim in that? No thanks." L0003: JE G00,#ec [TRUE] L0004 PRINT_RET "There's not enough water to swim in." L0004: JE G24,#00 [FALSE] L0005 STORE G24,#01 PRINT_RET "Mmm. Here is your first and only warning: the sea is the domain of Poseidon, and he's not what you'd call a gentleman." L0005: STORE G05,#07 PRINT_RET "As you dive into the sea, you catch sight of Andromeda looking suddenly cheerful. It soon becomes apparent why, as a Kraken wakes from the depths of the ocean and swipes you for a quick snack. You seem to have replaced her as sacrifice... a Pyrrhic victory." Routine R0264, 0 locals Action routine for: "swing NOUN" "swing on NOUN" JE G00,#0104 [TRUE] L0001 PRINT_RET "There's nothing sensible to swing here." L0001: JE G4d,#0105 [TRUE] L0002 PRINT_RET "You can't swing on that." L0002: SET_ATTR "hemp rope",#19 PRINT_RET "You set the rope swinging back and forth. Very exhilarating!" Routine R0265, 0 locals Action routine for: "blow croquet" PRINT_RET "You'll have to be a little more explicit." Routine R0266, 1 local Action routine for: "blow HELD" TEST_ATTR "gas mask",#02 [FALSE] L0001 PRINT_RET "With the gas mask on?" L0001: JE G4d,#30 [FALSE] L0010 PRINT "Fweep! Fweep! " GET_PARENT "Austin" -> -(SP) JE (SP)+,G00 [FALSE] L0002 PRINT " Austin is startled, but too lazy to look up. " L0002: JE G00,#013f [FALSE] L0003 PRINT_RET " The sparrows swoop down and around you, but rapidly lose interest." L0003: JE G00,#0141 [FALSE] L0006 TEST_ATTR "flock of sparrows",#19 [FALSE] L0004 PRINT_RET " But the sparrows cannot hear." L0004: TEST_ATTR "gold watch on a chain",#06 [FALSE] L0005 PRINT_RET " But the sparrows are wise to that one." L0005: SET_ATTR "gold watch on a chain",#06 SET_ATTR "flock of sparrows",#19 REMOVE_OBJ "irate squirrel friend" CALL_2N R0040 (#1d) PRINT_RET " The sparrows swoop down onto the roof, battering against the glass. In the process the gold watch comes loose, and falls to the ground with a disconcerting thud. It just misses the squirrel, who bolts away, startled. The sudden motion once more disturbs the flighty sparrows, who take to the skies. You feel rather deserted all of a sudden." L0006: JE G00,#ef,#0162 [FALSE] L0007 PRINT_RET " The sacred falcon of Apollo wheels high in the sky over the cave mouth, but then flies away." L0007: JE G00,#018b [FALSE] L0008 GET_PARENT "unexciting tombstone" -> -(SP) JE (SP)+,#00 [FALSE] L0008 INSERT_OBJ "cloak of many colours","Necropolis" INSERT_OBJ "unexciting tombstone","Necropolis" PUT_PROP "Necropolis",#12,#018d PRINT_RET " The birds of prey swoop, startled, down to an unexciting tombstone which you hadn't noticed before; but after a moment they relax and slip away into the darkness." L0008: JE G00,#0168 [FALSE] L0009 GET_PARENT "corn crake" -> -(SP) JE (SP)+,#0168 [FALSE] L0009 PRINT_RET "The corn crake must be stone deaf, since although she seems eminently distractable, she didn't appear to hear a thing." L0009: RFALSE L0010: JE G4d,#0155 [FALSE] L0019 JE G00,#f0 [FALSE] L0011 PRINT_RET "The goats are amused by your derisory playing." L0011: JE G00,#0162 [TRUE] L0012 PRINT_RET "You sound off some dissident notes." L0012: PRINT "Seized by divine inspiration, you launch into J. S. Bach's " RANDOM #05 -> L00 JE L00,#01 [FALSE] L0013 PRINT "Prelude number 1" L0013: JE L00,#02 [FALSE] L0014 PRINT "Passacaglia" L0014: JE L00,#03 [FALSE] L0015 PRINT "Chromatic Fantasy and Fugue" L0015: JE L00,#04 [FALSE] L0016 PRINT "partita for unaccompanied flute" L0016: JE L00,#05 [FALSE] L0017 PRINT "duet number four" L0017: GET_PARENT "Oracle" -> -(SP) JE (SP)+,G00 [FALSE] L0018 PRINT_RET "." L0018: INSERT_OBJ "Oracle",G00 PRINT ". Suddenly the great god Apollo appears before you! As he speaks the very rock reverberates. "All wisdom is mine, mortal! Though you shall seek out your curse A thousand years and more. Now ask!" Apollo, as he vanishes, laughs in that style more recently popularised by Third World dictators and mad scientists. " CALL_2N R0040 (#22) RTRUE L0019: JE G4d,#010c [TRUE] L0020 PRINT_RET "You can't usefully blow that." L0020: PRINT "You blow the horn, and it lets a great clarion call out to the hills. " JL G1b,#07 [TRUE] L0021 PRINT "The guardsmen, all over the villa, find you very quickly. " CALL_1N R0438 JUMP L0022 L0021: PRINT "A call which is rapidly answered as... " STORE G1b,#07 L0022: RTRUE Routine R0267, 0 locals Action routine for: "clean NOUN" JE G4d,#a4 [FALSE] L0001 PRINT_RET "You polish the metal a little, but there's far too much to do by hand." L0001: JE G4d,#a7 [FALSE] L0003 TEST_ATTR "glowing golden orb",#19 [FALSE] L0002 PRINT_RET "It shines already!" L0002: PRINT "Bewilderingly, the condensation dissolves your hand away, and the water rushes up over your body as if it were blotting paper. You feel nothing except disorientation, but your confusion soon resolves to... " REMOVE_OBJ "glowing golden orb" INSERT_OBJ "glowing golden orb",G00 GET_PARENT G03 -> G27 STORE G28,G00 STORE G00,#a8 REMOVE_OBJ G03 INSERT_OBJ G03,"Inside the Orb" CALL_2N R0198 (#01) RTRUE L0003: JE G4d,#3e [TRUE] L0004 PRINT_RET "You achieve nothing by this." L0004: SET_ATTR "solid glass ball",#19 JE G25,#01 [FALSE] L0005 TEST_ATTR "slide projector",#18 [FALSE] L0005 PRINT "You polish the ball to a nice shine, and get out of the way of the beam. Now the glass ball " CALL_1N R0382 RTRUE L0005: PRINT_RET "You polish the ball to a nice shine." Routine R0268, 2 locals Action routine for: "set NOUN" JE G4d,#e1 [TRUE] L0001 PRINT_RET "No, you can't set that." L0001: STORE L00,#e1 GET_PROP L00,#15 -> L01 JE L01,#00 [TRUE] L0002 PRINT_RET "It is already running!" L0002: PUT_PROP L00,#15,#0a PRINT "You wind back the timer to 10 minutes, and off it goes. " STORE G11,#01 RTRUE Routine R0269, 0 locals Action routine for: "consume HELD" "drink NOUN" TEST_ATTR "gas mask",#02 [FALSE] L0001 PRINT_RET "With the gas mask on?" L0001: TEST_ATTR G4d,#1a [TRUE] L0002 PRINT_RET "No, it's plainly inedible." L0002: REMOVE_OBJ G4d JE G4d,#36 [FALSE] L0003 CLEAR_ATTR G03,#19 PRINT_RET "It tastes alarmingly of chocolate." L0003: CALL_2N R0040 (#16) PRINT "You eat the " PRINT_OBJ G4d PRINT_RET ". Not bad." Routine R0270, 0 locals Action routine for: "wave" PRINT_RET "You wave, feeling foolish." Routine R0271, 0 locals JE G4c,#18 [FALSE] L0001 RFALSE L0001: PRINT_RET "It is out of reach, beyond the glass." Routine R0272, 1 local Action routine for: "wave NOUN" GET_PARENT G4d -> L00 JE L00,G03 [TRUE] L0001 PRINT_RET "But you aren't holding it." L0001: STORE L00,G4d TEST_ATTR L00,#13 [FALSE] L0006 TEST_ATTR "daisy chain",#02 [FALSE] L0002 STORE L00,#86 GET_PROP L00,#15 -> L00 JE L00,#01 [FALSE] L0002 ADD G01,#06 -> G01 ADD G16,#06 -> G16 PRINT "Light pulses around the daisy chain, then leaps out to engulf the " PRINT_OBJ G4d PRINT " which melts into " REMOVE_OBJ G4d GET_PROP G4d,#17 -> L00 STORE G71,L00 SET_ATTR L00,#06 SET_ATTR L00,#20 INSERT_OBJ L00,G03 CALL_2N R0289 (L00) PRINT_RET "!" L0002: TEST_ATTR "yellow daisy",#02 [FALSE] L0005 ADD G01,#06 -> G01 ADD G16,#06 -> G16 PRINT "Light pulses from the daisy behind your ear, leaping out to engulf the " PRINT_OBJ G4d PRINT " which melts into " REMOVE_OBJ G4d GET_PROP G4d,#17 -> L00 STORE G71,L00 SET_ATTR L00,#06 INSERT_OBJ L00,G03 TEST_ATTR L00,#12 [FALSE] L0003 CALL_2N R0290 (L00) L0003: TEST_ATTR L00,#12 [TRUE] L0004 CALL_2N R0289 (L00) L0004: PRINT_RET "!" L0005: STORE L00,G4d L0006: TEST_ATTR L00,#12 [FALSE] L0007 PRINT_RET "That seems to be not quite how they work..." L0007: JE L00,#d7 [FALSE] L0008 JE G00,#d6 [FALSE] L0008 TEST_ATTR "tourist boat",#0a [TRUE] L0008 SET_ATTR "tourist boat",#0a PRINT_RET "You wave the handkerchief, and the boat glides smoothly across the river toward you." L0008: JE L00,#cb [FALSE] L0009 JE G00,#d6 [FALSE] L0009 TEST_ATTR "tourist boat",#0a [TRUE] L0009 PRINT "You wave the poster at the boat, but the boat remains unmoved. " CALL_1N R0313 RFALSE L0009: TEST_ATTR L00,#02 [FALSE] L0010 PRINT_RET "You can't wave what you're wearing." L0010: PRINT "You look ridiculous waving the " PRINT_OBJ L00 PRINT_RET "." Routine R0273, 1 local Action routine for: "strike NOUN" GET_PARENT G4d -> L00 JE L00,G03 [TRUE] L0001 PRINT_RET "But you aren't holding it." L0001: JE G00,#0121 [FALSE] L0002 PRINT_RET "The clouds are too fluffy." L0002: STORE L00,G4d TEST_ATTR L00,#12 [TRUE] L0003 PRINT "You ineffectually bash the " PRINT_OBJ L00 PRINT_RET " on the ground." L0003: TEST_ATTR L00,#14 [FALSE] L0004 STORE G05,#01 PRINT_RET "The already-charged rod explodes with cataclysmic violence, burying everything nearby in rubble!" L0004: SET_ATTR L00,#14 CALL_2N R0040 (#06) JE G00,#df [FALSE] L0005 PRINT_RET "You look rather conspicuous striking the rod on the cafe table, but everyone else assumes you're part of the cabaret. Anyway, the rod charges up as usual." L0005: JE G00,#a8 [FALSE] L0006 PRINT_RET "The sphere rings with a hollow noise, but the rod charges up." L0006: JE G06,#0e [FALSE] L0007 PRINT_RET "The rod draws etherial power from the rocks and the spirits..." L0007: PRINT_RET "The rod charges with etherial power, drawn up from the earth through ley lines..." Routine R0274, 0 locals Action routine for: "beckon NOUN" GET_PARENT G4d -> -(SP) JE (SP)+,#01 [FALSE] L0001 GET_PARENT "adamantine knight" -> -(SP) JE (SP)+,G00 [FALSE] L0001 CALL_1N R0116 RFALSE L0001: TEST_ATTR G4d,#12 [FALSE] L0002 PRINT_RET "Please point it at something." L0002: PRINT_RET "A useless gesture." Routine R0275, 2 locals Action routine for: "beckon HELD at NOUN" GET_PARENT G4d -> L00 JE L00,G03 [TRUE] L0001 PRINT_RET "But you aren't holding it." L0001: GET_PARENT G4e -> L00 JE L00,G03 [FALSE] L0002 PRINT_RET "It's too fiddly pointing it at something you're holding." L0002: STORE L00,G4d TEST_ATTR L00,#12 [TRUE] L0003 PRINT_RET "Ok. (Why?)" L0003: TEST_ATTR L00,#14 [TRUE] L0004 PRINT_RET "Nothing happens." L0004: CALL_2N R0040 (#07) GET_PROP G4d,#07 -> L01 JE L01,#ffff [FALSE] L0005 PRINT_RET "Not implemented yet." L0005: CLEAR_ATTR G4d,#14 CALL_VS L01 -> Gef RTRUE Routine R0276, 0 locals Action routine for: "rip" "rip NOUN" PRINT_RET "That sort of wilful damage to property is exactly what's wrong with the world today. And another thing, the influence of so-called rock and roll music on society has in my view, and I may be old-fashioned, but... [etc]" Routine R0277, 0 locals Action routine for: "drag down NOUN" "rip down NOUN" JE G4d,#cb [TRUE] L0001 CALL_1N R0276 RFALSE L0001: STORE G4c,#02 CALL_VN R0026 (G4d,#00,G4c) RTRUE Routine R0278, 0 locals Action routine for: "make" "make wish" "make a wish" "make for SPECIAL" GET_PARENT "chicken wishbone" -> -(SP) JE (SP)+,G03 [TRUE] L0001 PRINT_RET "You make a wish." L0001: PRINT_RET "The wishbone has already been pulled, and you have the part which lost." Routine R0279, 2 locals Action routine for: "drag NOUN" JE G4d,#6a [FALSE] L0001 PRINT_RET "It already has been. The part you have, lost." L0001: TEST_ATTR G4d,#1d [FALSE] L0004 TEST_ATTR G4d,#19 [FALSE] L0002 PRINT_RET "It is already pulled out." L0002: SET_ATTR G4d,#19 PRINT "You pull out " CALL_2N R0290 (G4d) PRINT ". " STORE L00,#e0 GET_PROP L00,#15 -> L01 STOREB G18,L01,G4d INC L01 PUT_PROP L00,#15,L01 JE L01,#04 [FALSE] L0003 SET_ATTR "complicated-looking bomb",#19 PRINT_RET "All four wires are now disconnected." L0003: RTRUE L0004: TEST_ATTR G4d,#17 [FALSE] L0007 TEST_ATTR G4d,#18 [FALSE] L0005 STORE G4c,#3e JUMP L0006 L0005: STORE G4c,#3f L0006: CALL_VN R0026 (G4d,#00,G4c) RFALSE L0007: TEST_ATTR G4d,#0f [FALSE] L0008 PRINT_RET "It is fixed in place." L0008: TEST_ATTR G4d,#0e [FALSE] L0009 PRINT_RET "You are unable to." L0009: JE G4d,#0126 [FALSE] L0010 PRINT_RET "Austin hisses and will not be pulled by the tail." L0010: PRINT_RET "Nothing obvious happens." Routine R0280, 0 locals Action routine for: "bounce NOUN" TEST_ATTR G4d,#04 [FALSE] L0002 JE G4d,#0126 [FALSE] L0001 PRINT_RET "Perhaps you should say which way to push Austin." L0001: PRINT_RET "How vulgar." L0002: JE G4d,#03 [FALSE] L0003 JE G00,#49 [FALSE] L0003 TEST_ATTR "secret door",#01 [FALSE] L0003 CLEAR_ATTR "secret door",#01 INSERT_OBJ "secret door","Dead End" CALL_2N R0040 (#03) PRINT_RET "A secret door springs open!" L0003: JE G4d,#d0 [FALSE] L0007 GET_PARENT "Madame Sosostris, famous clairvoyante" -> -(SP) JE (SP)+,#cd [TRUE] L0006 TEST_ATTR "Madame Sosostris, famous clairvoyante",#19 [TRUE] L0004 INSERT_OBJ "Madame Sosostris, famous clairvoyante","Consulting Room" PRINT_RET "Madame Sosostris, the famous clairvoyante, breezes in through the hanging curtain and sits behind the table, making waving gestures with her hands. "First, this I must know, were you born in an even, or an odd, year?"" L0004: TEST_ATTR "Unreal City",#19 [FALSE] L0005 PRINT_RET "She has helped enough." L0005: PRINT "Madame Sosostris breezes in once more. "You again," she says warily. "Let us see how your fortunes have changed." " CALL_1N R0317 RTRUE L0006: PRINT_RET "Madame Sosostris looks at you in some irritation." L0007: TEST_ATTR G4d,#17 [FALSE] L0010 TEST_ATTR G4d,#18 [FALSE] L0008 STORE G4c,#3f JUMP L0009 L0008: STORE G4c,#3e L0009: CALL_VN R0026 (G4d,#00,G4c) RFALSE L0010: JE G4d,#82 [FALSE] L0011 PRINT_RET "It moves easily on the casters." L0011: TEST_ATTR G4d,#0f [FALSE] L0012 PRINT_RET "It is fixed in place." L0012: TEST_ATTR G4d,#0e [FALSE] L0013 PRINT_RET "You are unable to." L0013: PRINT_RET "Nothing obvious happens." Routine R0281, 1 local Action routine for: "bounce NOUN NOUN" GET_PARENT G4e -> L00 JE L00,#01 [TRUE] L0001 PRINT_RET "That's not a direction." L0001: JE G4e,#0a [FALSE] L0002 PRINT_RET "Not upstairs you can't." L0002: JE G4e,#0b [FALSE] L0003 PRINT_RET "Not downstairs you can't." L0003: TEST_ATTR G4d,#21 [FALSE] L0006 TEST_ATTR "inscriptions",#0a [FALSE] L0004 PRINT_RET "The only direction to push the statue in is to the centre of the cross, but there's a pit open in the floor there." L0004: PRINT "You heave the statue along with you. " STORE L00,G4d STORE G4d,G4e CALL_1N R0194 REMOVE_OBJ L00 INSERT_OBJ L00,G00 GET_PARENT "statue of Poseidon" -> -(SP) JE (SP)+,#015a [FALSE] L0005 GET_PARENT "statue of Demeter" -> -(SP) JE (SP)+,#015b [FALSE] L0005 GET_PARENT "statue of Ares" -> -(SP) JE (SP)+,#015c [FALSE] L0005 GET_PARENT "statue of Dionysus" -> -(SP) JE (SP)+,#015d [FALSE] L0005 SET_ATTR "inscriptions",#0a CALL_2N R0040 (#20) PRINT_RET " You hear the noise of stone grating against stone." L0005: RFALSE L0006: TEST_ATTR G4d,#04 [FALSE] L0019 JE G4d,#0126 [FALSE] L0018 JE G00,#1d [FALSE] L0007 JE G4e,#02,#04,#03 [FALSE] L0007 JUMP L0016 L0007: JE G00,#61 [FALSE] L0008 JE G4e,#05,#03 [FALSE] L0008 JUMP L0016 L0008: JE G00,#7e [FALSE] L0009 JE G4e,#05,#04 [FALSE] L0009 JUMP L0016 L0009: JE G00,#2e [FALSE] L0010 JE G4e,#02,#08 [FALSE] L0010 JUMP L0016 L0010: JE G00,#37 [FALSE] L0011 JE G4e,#07,#03,#05 [FALSE] L0011 JUMP L0016 L0011: JE G00,#37,#38 [FALSE] L0012 JE G4e,#04 [FALSE] L0012 JUMP L0016 L0012: JE G00,#45 [FALSE] L0013 JE G4e,#05 [FALSE] L0013 JUMP L0016 L0013: JE G00,#3c [FALSE] L0014 JE G4e,#02,#03 [FALSE] L0014 JUMP L0016 L0014: JE G00,#42 [FALSE] L0015 JE G4e,#02 [FALSE] L0015 JUMP L0016 L0015: PRINT_RET "Austin refuses to go that way." L0016: PRINT "Austin reluctantly accompanies you. " L0017: STORE L00,G4d STORE G4d,G4e CALL_1N R0194 REMOVE_OBJ L00 INSERT_OBJ L00,G00 RFALSE L0018: PRINT_RET "How vulgar." L0019: JE G4d,#ba [FALSE] L0022 PRINT "You bounce the beach ball along in front of you. " JE G00,#b3 [FALSE] L0020 JE G4e,#03 [TRUE] L0021 L0020: JUMP L0017 L0021: PRINT "You pass between the steel walls and a light passes over you. Suddenly barriers spring out across the corridor, thumping into the beach ball which rapidly begins to deflate. There is a sharp hiss as you nimbly jump over the ball, and then a horrid clang as the barriers come together behind you. " STORE G4d,#03 CALL_1N R0194 REMOVE_OBJ "beach ball" CALL_2N R0040 (#1f) RFALSE L0022: JE G4d,#82 [TRUE] L0023 PRINT_RET "Is that the best you can think of?" L0023: TEST_ATTR "antiquated wireless",#01 [FALSE] L0024 PRINT_RET "What radio?" L0024: JE G4e,#04 [FALSE] L0025 PRINT_RET "Not upstairs you can't." L0025: PRINT "It moves easily on the casters. " STORE L00,G4d STORE G4d,G4e CALL_1N R0194 REMOVE_OBJ L00 INSERT_OBJ L00,G00 JE G00,#83 [FALSE] L0026 STORE G05,#03 PRINT_RET "Aunt Jemima spends the next four hours explaining to you exactly why she put the radio into storage. The reason is awfully convoluted and due to her firm conviction that magnetic fields influence the growth of plants. By that time you have to leave for the airport..." L0026: RTRUE Routine R0282, 0 locals Action routine for: "rotate NOUN" "rotate NOUN inside out" JE G4d,#50 [FALSE] L0002 PRINT "With a horrid creaking noise, the crank " TEST_ATTR "Inside Cupboard",#00 [FALSE] L0001 CLEAR_ATTR "Inside Cupboard",#00 CLEAR_ATTR "cranked skylight",#0a PRINT_RET "shuts down the skylight." L0001: SET_ATTR "Inside Cupboard",#00 SET_ATTR "cranked skylight",#0a PRINT_RET "winds open the skylight, flooding the room with sunshine." L0002: JE G4d,#43 [FALSE] L0006 JE G25,#01 [FALSE] L0004 STORE G25,#00 TEST_ATTR "slide projector",#18 [FALSE] L0003 CLEAR_ATTR "Disused Observatory",#00 PRINT_RET "The sharp beam of light cuts out again." L0003: PRINT_RET "Click." L0004: STORE G25,#01 TEST_ATTR "slide projector",#18 [FALSE] L0005 SET_ATTR "Disused Observatory",#00 PRINT_RET "A sharp beam of white light appears backward out of the projector. As you step out of the beam, it extends dead straight through the north doorway." L0005: PRINT_RET "Click." L0006: TEST_ATTR G4d,#0f [FALSE] L0007 PRINT_RET "It is fixed in place." L0007: TEST_ATTR G4d,#0e [FALSE] L0008 PRINT_RET "You are unable to." L0008: PRINT_RET "Nothing obvious happens." Routine R0283, 0 locals GET_PARENT "fire escape" -> -(SP) JE (SP)+,#49 [FALSE] L0001 RFALSE L0001: PUT_PROP "Dead End",#0b,#4c PUT_PROP "Dead End",#12,#4c INSERT_OBJ "fire escape","Dead End" SET_ATTR "Dead End",#00 PRINT_RET " Your footfall causes the crystal ball to wobble fractionally, just enough for the beam of light to cross the smoke detector. Click! and then some electronic bleeping. Little servo motors fire lethargically into life, then collapse in exhaustion. The alarm soon runs down to a tiny drone, then silence. But there's quite a loud report from off to the east somewhere." Routine R0284, 1 local Action routine for: "squash NOUN" TEST_ATTR G4d,#04 [FALSE] L0001 PRINT_RET "Keep your hands to yourself." L0001: JE G4d,#97 [TRUE] L0002 PRINT_RET "You achieve nothing by this." L0002: TEST_ATTR "weed killer bottle",#19 [FALSE] L0003 PRINT_RET "Nothing emerges. The bottle must be empty." L0003: SET_ATTR "weed killer bottle",#19 JE G00,#f2 [FALSE] L0004 PRINT_RET "A valiant but doomed idea. The weed killer harms barely a single tendril of the wall." L0004: JE G00,#93 [FALSE] L0005 STORE L00,#94 REMOVE_OBJ L00 STORE L00,#93 PUT_PROP L00,#11,#00 PRINT_RET "Congratulations. You have devastated the runner-bean plant." L0005: JE G00,#8f [FALSE] L0006 PRINT_RET "Happily, the weed killer makes no impression on the beautiful old tree." L0006: JE G06,#05 [FALSE] L0007 JUMP L0011 L0007: JE G06,#06 [TRUE] L0008 PRINT_RET "A stream of weed-killer emerges, but evaporates almost at once, just as well considering the vile smell." L0008: JE G00,#b1 [TRUE] L0009 JUMP L0011 L0009: CALL_VS R0391 (G0a,G0b) -> L00 JE L00,#00 [FALSE] L0010 PRINT_RET "A stream of weed-killer soaks into the grass, and does nothing obvious." L0010: STORE G0c,G0a STORE G0d,G0b PRINT_RET "A stream of weed-killer soaks into the seedbed, and does nothing obvious." L0011: PRINT_RET "A stream of weed-killer soaks into the earth, and does nothing obvious." Routine R0285, 0 locals Action routine for: "l under NOUN" CALL_1N R0286 RTRUE Routine R0286, 1 local Action routine for: "l inside NOUN" "l in NOUN" "l through NOUN" "frisk NOUN" JE G4d,#96,#0186 [FALSE] L0001 PRINT_RET "You find nothing concealed within." L0001: JE G00,#df [FALSE] L0003 JE G4d,#0d [FALSE] L0003 TEST_ATTR "complicated-looking bomb",#01 [FALSE] L0002 CLEAR_ATTR "complicated-looking bomb",#01 STORE L00,#e0 REMOVE_OBJ L00 INSERT_OBJ L00,"Ruined Castle Cafe" PRINT_RET "Now don't panic, but there's a ticking bomb loosely taped to the underside of the table you're sitting at!" L0002: PRINT_RET "You make no further alarming discoveries." L0003: JE G4d,#5f [FALSE] L0004 TEST_ATTR "delicate gold key",#01 [FALSE] L0004 CLEAR_ATTR "delicate gold key",#01 PRINT_RET "You dislodge something shiny!" L0004: JE G4d,#1f [FALSE] L0006 PRINT "That was the first place you tried, hours and hours ago now" TEST_ATTR "History of the Meldrews (vol. II)",#01 [FALSE] L0005 PRINT ", and there's nothing there but that boring old book. You pick it up anyway, bored as you are" CALL_2N R0041 (#21) CLEAR_ATTR "History of the Meldrews (vol. II)",#01 REMOVE_OBJ "History of the Meldrews (vol. II)" INSERT_OBJ "History of the Meldrews (vol. II)",G03 L0005: PRINT_RET "." L0006: JE G4d,#81 [FALSE] L0010 TEST_ATTR "antiquated wireless",#01 [FALSE] L0007 CLEAR_ATTR "antiquated wireless",#01 CALL_2N R0040 (#08) PRINT_RET "Not as many sheets as you thought - they were on top of a large black wireless, now exposed to the light for the first time in months." L0007: PRINT "No, you're only getting your " TEST_ATTR "old gardeners' gloves",#02 [FALSE] L0008 PRINT "gloves" JUMP L0009 L0008: PRINT "hands" L0009: PRINT_RET " stained looking." L0010: JE G4d,#46 [FALSE] L0013 TEST_ATTR "old gardeners' gloves",#02 [TRUE] L0011 PRINT_RET "A rash act. The itchy fibres of the insulation soon deter you." L0011: STORE L00,#47 GET_PARENT L00 -> -(SP) JE #46,(SP)+ [TRUE] L0012 PRINT_RET "Nothing else there, unfortunately." L0012: REMOVE_OBJ L00 INSERT_OBJ L00,"East Annexe" CALL_2N R0040 (#0c) PRINT_RET "You uncover a shiny new battery. It must have been dropped by accident when the loft insulation was being done." L0013: TEST_ATTR G4d,#08 [TRUE] L0014 PRINT_RET "You find nothing of interest." L0014: TEST_ATTR G4d,#09 [FALSE] L0015 TEST_ATTR G4d,#0a [TRUE] L0015 PRINT_RET "You can't see inside, since it is closed." L0015: CALL_1S R0027 -> -(SP) JE #01,(SP)+ [FALSE] L0016 RTRUE L0016: PRINT "You peer at " TEST_ATTR G4d,#0a [FALSE] L0018 TEST_ATTR G4d,#08 [FALSE] L0018 GET_CHILD G4d -> -(SP) [TRUE] L0017 L0017: JE (SP)+,#00 [FALSE] L0018 TEST_ATTR G4d,#0b [TRUE] L0018 CALL_2N R0290 (G4d) PRINT_RET ", which is empty." L0018: CALL_VN R0200 (G4d,#02) PRINT_RET "." Routine R0287, 1 local Action routine for: "l up SPECIAL in HELD" "l SPECIAL up in HELD" "l SPECIAL up on HELD" "l up SPECIAL on HELD" STORE L00,G4d STORE G4d,G4e STORE G4e,L00 CALL_1N R0288 RTRUE Routine R0288, 1 local Action routine for: "l up SPECIAL" "l up SPECIAL meldrew" "consult HELD about SPECIAL" LOADW G49,#01 -> -(SP) JE #02,(SP)+ [FALSE] L0005 JE G4d,#64 [FALSE] L0001 JUMP L0037 L0001: JE G4d,#5a [FALSE] L0002 JUMP L0040 L0002: JE G4d,#2a [FALSE] L0003 JUMP L0049 L0003: JE G4d,#20 [TRUE] L0004 PRINT_RET "You can't look things up in that." L0004: JUMP L0017 L0005: STORE L00,#00 GET_PARENT "History of the Meldrews (vol. II)" -> -(SP) JE (SP)+,G03 [FALSE] L0006 STORE L00,#20 JUMP L0009 L0006: GET_PARENT "tourist map" -> -(SP) JE (SP)+,G03 [FALSE] L0007 STORE L00,#64 JUMP L0009 L0007: GET_PARENT "ancient prayer book" -> -(SP) JE (SP)+,G03 [FALSE] L0008 STORE L00,#5a JUMP L0009 L0008: GET_PARENT "classical dictionary" -> -(SP) JE (SP)+,G03 [FALSE] L0009 STORE L00,#2a L0009: JE L00,#00 [FALSE] L0013 GET_PARENT "History of the Meldrews (vol. II)" -> -(SP) JE (SP)+,G00 [FALSE] L0010 STORE L00,#20 JUMP L0013 L0010: GET_PARENT "tourist map" -> -(SP) JE (SP)+,G00 [FALSE] L0011 STORE L00,#64 JUMP L0013 L0011: GET_PARENT "ancient prayer book" -> -(SP) JE (SP)+,G00 [FALSE] L0012 STORE L00,#5a JUMP L0013 L0012: GET_PARENT "classical dictionary" -> -(SP) JE (SP)+,G00 [FALSE] L0013 STORE L00,#2a L0013: JE L00,#00 [FALSE] L0014 PRINT_RET "I don't know what you want to look it up in." L0014: PRINT "(in " CALL_2N R0290 (L00) PRINT ") " JE L00,#64 [FALSE] L0015 JUMP L0037 L0015: JE L00,#5a [FALSE] L0016 JUMP L0040 L0016: JE L00,#2a [FALSE] L0017 JUMP L0049 L0017: CALL_2N R0041 (#22) STORE L00,G50 JE L00,"me" [FALSE] L0018 STORE L00,#01 L0018: JE L00,"myself" [FALSE] L0019 STORE L00,#01 L0019: JE L00,"self" [FALSE] L0020 STORE L00,#01 L0020: JE L00,"peter" [FALSE] L0021 PRINT_RET " Modestly, the author (died 1940 or so?) missed himself out." L0021: JE L00,"jemima" [FALSE] L0022 PRINT_RET " She's far too recent to be included." L0022: JE L00,"isaac" [FALSE] L0023 PRINT " Mad Isaac (1705-1792) went in for mystic experiments of all kinds, and was a noted antiquarian. He believed that the Meldrew family had an ancestral curse, dooming each member to undertake a futile quest. The only way to break the curse, he thought, was for one of them to actually succeed... unfortunately he died in peculiar circumstances before finding out how. " PRINT_RET " Then again, he also believed that King Arthur's wizard Merlin was buried not in a Tintagel cave, as is usually claimed, but somewhere in the back garden (near where the motorway is now), and that the moon is a giant pair of black and white discs towed through the night sky by a team of angels." L0023: JE L00,"ebenezer" [FALSE] L0024 PRINT_RET " It seems Ebenezer (1846-1908), the younger of a pair of twins, threw up a promising career in the East India Company one day, took a packet steamer to Cape Colony and simply marched off into the bush on a quest to find a legendary river. His maps were used for several years after, and a province was named after him for a while, but the locals call it something else now." L0024: JE L00,"roger" [FALSE] L0025 PRINT_RET " Roger (1846-1913), the elder of a pair of twins, was very Victorian indeed, especially in his disapproval of his beautiful young wife's literary career. He thought her romances so immoral that he refused to allow the family name to appear on them. A prominent local vestryman, his own writing was confined to a great many monographs on the problems of municipal drainage, but he died before his grand National Sewerage Plan was complete." L0025: JE L00,"capabilit" [FALSE] L0026 PRINT_RET " "Capability" Meldrew (1761-1817) became a mildly celebrated landscape gardener, starting a brief fashion for crypts and memorials as garden ornaments (he claimed it was closer to nature). Very little of his work now survives. His real name, incidentally, was Willard." L0026: JE L00,"henri" [FALSE] L0027 PRINT_RET " Very little is known about Henri, who lived at some time in the fifteenth century. As a young man he fought at Agincourt, and seems to have been some kind of combat engineer. The story goes that he acquired his nickname, The Black Post, from a joke made by the King when he was standing up to his waist in a ditch. He must have been proud of it because his coat of arms bears his name written down the left hand side, and Black Post down the right. In his later years he became morbidly possessed, and (according to legend) spent his declining years working on his own tomb, which he insisted would be of celestial importance." L0027: JE L00,"helene" [FALSE] L0028 PRINT_RET " Helene Meldrew (1902-) is a noted painter and sculptress. Her relations with the family were broken off in the 20s when she married Anton and ran off to Paris to study art, but she has recently returned to the House, in search (as she puts it) of "the perfect blue, the blue of the sky, the blue of water". We wish her well." L0028: JE L00,"anton" [FALSE] L0029 PRINT_RET " Anton Smyslov shouldn't really be in the book, even if he did marry Helene, but there is a brief passage, since he was so famous - he was a chess grandmaster, and won the Paris Open five years running in the 1930s. His speciality was bold sacrificial attacks, but he was also notorious for eating blueberry yoghurt at the board." L0029: JE L00,"alison" [FALSE] L0030 PRINT_RET " Under the pseudonym Marie Swelldon, your ancestress Alison (1871-1930) wrote several mildly successful romances. She obsessively collected lucky charms, and advertised in newspapers for double-headed coins and the like (although she never traced a rumoured find of a five-leafed clover, somewhere in County Donegal). In order to write in tranquillity and to avoid her husband, it was she who installed the fake wall at the far south end of the attic east wing, and each afternoon she would sneak upstairs to push it aside." L0030: JE L00,"joshua" [FALSE] L0031 PRINT " Oh dear, the deeply regrettable Sir Joshua Meldrewe (1710-1776). Member of the Dilletanti Society and the Hell-Fire Club, and a politician (chancellor of the exchequer 1762-3; "probably the least competent minister ever to hold that office" - Oxford History of England, vol. xii). " PRINT_RET "His father disinherited him for wildly excessive living (he almost invariably wore jewelled buttons worth at least a thousand pounds) and for marrying a lady of easy virtue while on the run from a prison in France, where he was sentenced to be beheaded. In order to stop his sister getting the fortune, he went back to Italy and advertised for a pregnant bride to provide a male heir. This nefarious plot was foiled when he choked to death on a chicken-bone. It is said that he stole the money anyway near the end, and certainly some gold went missing. (He also managed to get the family stripped of its baronetcy by cheating at bridge with the Prince of Wales.)" L0031: JE L00,"hartley" [FALSE] L0032 PRINT_RET " Your distant great-uncle Hartley was a tiresomely enthusiastic amateur Egyptologist who, every Christmas, used to sit you on his knee and drone on about trenches and writings and the fellaheen. It was all a bit of a fraud, you now discover, since he only actually went to Egypt once - there was such a scandal about his refusal to donate his best find to the British Museum that he was never allowed to excavate again, though he spent years writing in vain to the Egyptian government." L0032: JE L00,"gerard" [FALSE] L0033 PRINT_RET " Roger's eldest son Gerard (1898-1916) was killed in the Battle of the Somme. His mother, "Marie Swelldon", gave up writing afterwards." L0033: JE L00,"graham" [FALSE] L0034 PRINT_RET " What a curious name. No, nobody here called Graham." L0034: JE L00,"austin" [FALSE] L0035 PRINT_RET " Austin's quite venerable for a cat, but not that old." L0035: JE L00,#01 [FALSE] L0036 PRINT_RET " Perhaps you may one day earn a place in vol. III." L0036: PRINT_RET " Annoyingly there's no index (there was going to be a consolidated one in vol. I) and you can't find what you want." L0037: STORE L00,G51 JE L00,#058c [FALSE] L0039 TEST_ATTR "Museum Foyer",#11 [FALSE] L0038 PRINT_RET "You remember, the museum." L0038: PRINT " At that exact grid reference is Meldreustrasse, a minor back street which houses a museum of arcana. Suddenly you remember! You visited the place once, and the curator Doktor Stein showed you round... and he hypnotised you into a swirl of unconsciousness... " STORE L00,#64 REMOVE_OBJ L00 INSERT_OBJ L00,G00 STORE G06,#03 STORE G00,#b3 REMOVE_OBJ G03 INSERT_OBJ G03,"Museum Foyer" CALL_2N R0198 (#00) RTRUE L0039: PRINT_RET "Just some anonymous streets. The detail of this map is so tiny that unless you have the exact four-digit grid reference for what you want, you'll never find it." L0040: STORE L00,G51 JL L00,#06bd [TRUE] L0041 JG L00,#0700 [FALSE] L0042 L0041: PRINT_RET "He didn't seem to be experimenting in those days." L0042: JE L00,#0700 [FALSE] L0043 PRINT "In 1792, the last year of his life, ol' red-eyes becomes very excited about his new discovery. This time he claims that Merlyn bounde uppe the mystic estate (by this he means the back garden - Isaac never did have any sense of proportion) wyth great Roddes of Power. These are dangerous, yet also useful in themselves, but are really part of a great key... the usual nonsense. Of course you never actually see these rods, because they disguise themselves until waved by someone wearing Merlyn's hat. " PRINT_RET "The funny thing is that Isaac died (legend has it, by spontaneous combustion) only a week after this breakthrough, preventing him from sending yet another paper to the Royal Society. But since Merlyn supposedly lived in about the sixth century A.D., there can't be a lot left of his hat, so the matter may be academic." L0043: PRINT "In the year " PRINT_NUM G51 PRINT ", Isaac was mainly concerned with " MOD G51,#06 -> L00 JE L00,#00 [FALSE] L0044 PRINT_RET "alchemy." L0044: JE L00,#01 [FALSE] L0045 PRINT_RET "caustical opticks." L0045: JE L00,#02 [FALSE] L0046 PRINT_RET "concave mirrors." L0046: JE L00,#03 [FALSE] L0047 PRINT_RET "the edibility of reptiles." L0047: JE L00,#04 [FALSE] L0048 PRINT_RET "the spleens of flightless birds." L0048: JE L00,#05 [FALSE] L0049 PRINT_RET "melting points of metals." L0049: NEW_LINE TEST_ATTR "Homer",#19 [FALSE] L0050 GET_PROP "Homer",#15 -> -(SP) JL (SP)+,#03 [FALSE] L0050 GET_PARENT "Homer" -> -(SP) JE G00,(SP)+ [FALSE] L0050 CALL_1N R0295 PRINT ""Well, if you're going to cheat, forget it," says Homer loudly as he falls asleep. " L0050: STORE L00,G50 JE L00,"galita" [FALSE] L0051 PRINT_RET "Minor deity of tombs, reincarnated from a fly who flew into setting amber." L0051: JE L00,"menelaus" [FALSE] L0052 PRINT_RET "General in Trojan War, and brother of Agamemnon." L0052: JE L00,"agamemnon" [FALSE] L0053 PRINT_RET "General in Trojan War, and brother of Menelaus." L0053: JE L00,"ares" [FALSE] L0054 PRINT_RET "Greek god of war." L0054: JE L00,"chlamys" [FALSE] L0055 PRINT_RET "An emperor's (rectangular) cloak." L0055: JE L00,"husbandry" [FALSE] L0056 PRINT_RET "Not this dictionary!" L0056: JE L00,"hades" [FALSE] L0057 PRINT_RET "Underworld of spirits." L0057: JE L00,"adamantin" [FALSE] L0058 PRINT_RET "Hardest stone known to the ancients." L0058: JE L00,"iliad","odyssey" [FALSE] L0059 PRINT_RET "Epic by Homer." L0059: JE L00,"helicon" [FALSE] L0060 PRINT_RET "Mythical mountain of poets and muses." L0060: JE L00,"hephaestu" [FALSE] L0061 PRINT_RET "Greek god of blacksmiths and master of metals." L0061: JE L00,"pan" [FALSE] L0062 PRINT_RET "Greek god of pastures and shepherds; player of the syrinx, or pipes." L0062: JE L00,"demeter" [FALSE] L0063 PRINT_RET "Greek goddess of plenty." L0063: JE L00,"poseidon" [FALSE] L0064 PRINT_RET "Greek god of the sea, and of horses." L0064: JE L00,"apollo","loxias" [FALSE] L0065 PRINT_RET "Greek god of words, music and poetry." L0065: JE L00,"zeus" [FALSE] L0066 PRINT_RET "Greek ruler of the gods." L0066: JE L00,"leda" [FALSE] L0067 PRINT_RET "Mortal woman seduced by Zeus, who appeared to her in the form of a swan." L0067: JE L00,"hera" [FALSE] L0068 PRINT_RET "Jealous wife of Zeus." L0068: JE L00,"aphrodite" [FALSE] L0069 PRINT_RET "Greek goddess of beauty." L0069: JE L00,"athene" [FALSE] L0070 PRINT_RET "Greek goddess of wisdom." L0070: JE L00,"diana" [FALSE] L0071 PRINT_RET "Goddess of hunting, the underworld (with Pluto) and the moon." L0071: JE L00,"selenae" [FALSE] L0072 PRINT_RET "Mythical island mountain home of Diana." L0072: JE L00,"sosostris" [FALSE] L0073 PRINT_RET "Mythical pharoah of Egypt, after whom a curious cult rose: sometimes confused with Alexander the Great." L0073: JE L00,"pluto" [FALSE] L0074 PRINT_RET "Canine Walt Disney character, after whom the planet is named." L0074: JE L00,"dionysus" [FALSE] L0075 PRINT_RET "Greek god of wine, and revelry." L0075: JE L00,"furies","curses","eumenides" [FALSE] L0076 PRINT_RET "Eternally pursuing Greek goddesses, they enforced divine rules by punishing the families of miscreants through all time." L0076: JE L00,"omphalos" [FALSE] L0077 PRINT_RET "Fabled to be the stone at the centre (literally "navel") of the world." L0077: JE L00,"oracle","pythian" [FALSE] L0078 PRINT_RET "Priestess of Apollo: her predictions were legendary for their accuracy, and also their difficulty to interpret." L0078: JE L00,"pharos" [FALSE] L0079 PRINT_RET "Lighthouse-tower. The great one at Alexandria was one of the Seven Wonders of the World." L0079: JE L00,"aeschylus" [FALSE] L0080 PRINT_RET "The first great tragic playwright (525 - c.456 BC)." L0080: JE L00,"kraken" [FALSE] L0081 PRINT_RET "Legendary sea-monster of Poseidon (though the word derives from the Norwegian - not a lot of people know that)." L0081: JE L00,"andromeda" [FALSE] L0082 PRINT_RET "Maiden sacrificed to a sea-monster, according to myth eventually saved by Perseus." L0082: JE L00,"perseus" [FALSE] L0083 PRINT_RET "Greek hero and slayer of monsters." L0083: JE L00,"syrinx" [FALSE] L0084 PRINT_RET "Pan-pipes: reed-cut." L0084: JE L00,"homer" [FALSE] L0085 PRINT_RET "Earliest poet of the Greek tradition, legendarily blind: nothing is known about him, except that he (supposedly) wrote the "Iliad" and the "Odyssey"." L0085: JE L00,"ekmek","eraina" [FALSE] L0086 PRINT_RET "The Ekmek Special is a delicacy still served to this day by the Eraina Taverna, Free School Lane, Cambridge, England. Much prized by itinerant mathematicians." L0086: JE L00,"callimach" [FALSE] L0087 PRINT_RET "Cataloguer of the Alexandrian library: most famous of all the wittily brief epigrammatic poets." L0087: JE L00,"apolloniu" [FALSE] L0088 PRINT_RET "Librarian, mathematician, epic poet, politician." L0088: JE L00,"arthur" [FALSE] L0089 PRINT_RET "Half-mythical High King of the Britons." L0089: JE L00,"merlin","merlyn" [FALSE] L0090 PRINT_RET "Half-mythical wizard to the court of King Arthur." L0090: JE L00,"alexandri" [FALSE] L0091 PRINT_RET "City on the Nile Delta founded by Alexander the Great." L0091: JE L00,"alexander" [FALSE] L0092 PRINT_RET "Macedonian who conquered the known world in his twenties." L0092: JE L00,"ptolemy" [FALSE] L0093 PRINT_RET "General of Alexander the Great, governed and later inherited Egypt." L0093: JE L00,"odysseus","ulysses" [FALSE] L0094 PRINT_RET "Wasn't he a sailor?" L0094: PRINT_RET "Sorry, there's nothing on that." Routine R0289, 2 locals TEST_ATTR L00,#05 [TRUE] L0003 GET_PROP L00,#03 -> L01 JE L01,#01 [FALSE] L0001 PRINT "the " JUMP L0003 L0001: JE L01,#02 [FALSE] L0002 PRINT "an " JUMP L0003 L0002: PRINT_PADDR L01 PRINT " " L0003: PRINT_OBJ L00 RTRUE Routine R0290, 1 local TEST_ATTR L00,#05 [TRUE] L0001 PRINT "the " L0001: PRINT_OBJ L00 RTRUE Routine R0291, 1 local TEST_ATTR L00,#05 [TRUE] L0001 PRINT "The " L0001: PRINT_OBJ L00 RTRUE Routine R0292, 1 local Action routine for: "discard HELD at NOUN" TEST_ATTR G4e,#04 [TRUE] L0001 PRINT_RET "Futile." L0001: JE G4e,#85 [FALSE] L0002 CALL_2N R0041 (#1c) PRINT_RET "Well, quite. Best to just grit your teeth and put up with her though." L0002: JE G4e,#55 [FALSE] L0004 REMOVE_OBJ G4d JE G4d,#6a [FALSE] L0003 STORE L00,#54 REMOVE_OBJ L00 INSERT_OBJ L00,"Priest's Hole" SET_ATTR "gothic-looking iron key",#19 SET_ATTR "Sir Joshua Meldrewe",#01 CALL_2N R0040 (#02) PRINT_RET "The ghost swallows the wishbone, grinning nastily. Then a look of consternation spreads across his face. He begins to choke and as he fades away, his arms flailing wildly, he lets go of the key, which sails through the air onto the roof and (against all odds) falls neatly down a chimney." L0003: PRINT "The ghost swallows the " PRINT_OBJ G4d PRINT_RET " whole and grins!" L0004: PRINT_RET "You lack the nerve when it comes to the crucial moment." Routine R0293, 1 local TEST_ATTR "demon",#19 [TRUE] L0002 GET_PROP "demon",#15 -> L00 JE L00,#00 [FALSE] L0001 PRINT_RET ""No hints left, sucker."" L0001: PRINT_RET ""Under Regulation 3, paragraph 15 (i) clause (f), only one hint per visit to the infernal domain. You'll have to go away again and come back if you want another. So sorry."" L0002: RFALSE Routine R0294, 1 local TEST_ATTR "angel",#19 [TRUE] L0002 STORE L00,#0122 GET_PROP "angel",#15 -> L00 JE L00,#00 [FALSE] L0001 PRINT_RET ""No hints left, alas."" L0001: PRINT_RET ""Under Regulation 3, paragraph 15 (i) clause (f), only one hint per visit to the sacred domain. You'll have to go away again and come back if you want another. So sorry."" L0002: RFALSE Routine R0295, 0 locals CLEAR_ATTR "Homer",#19 PUT_PROP "Homer",#04,S1015 RTRUE Routine R0296, 2 locals Action routine for: "answer SPECIAL to CREATURE" TEST_ATTR "gas mask",#02 [FALSE] L0001 PRINT_RET "Not through a gas mask you can't." L0001: JE G4e,#85 [FALSE] L0011 TEST_ATTR "Jemima",#19 [TRUE] L0002 CALL_2N R0041 (#11) PRINT_RET "She pretends not to have heard, a favourite ploy of hers when sulking." L0002: CLEAR_ATTR "Jemima",#19 STORE L01,#00 JE G50,"yellow" [FALSE] L0003 STORE L01,#01 L0003: JE G50,"blue" [FALSE] L0004 STORE L01,#02 L0004: JE G50,"red" [FALSE] L0005 STORE L01,#04 L0005: JE G50,"white" [FALSE] L0006 STORE L01,#05 L0006: JE G50,"green" [FALSE] L0007 STORE L01,#06 L0007: JE G50,"orange" [FALSE] L0008 STORE L01,#09 L0008: JE L01,#00 [TRUE] L0009 PRINT ""Right you are then, I'm sure I have some which are just right." " L0009: JE L01,#00 [FALSE] L0010 STORE L01,#05 PRINT ""Nothing like that left. Just plain old daisies for you then dear!" " L0010: CALL_VN R0035 (#85,#0a) STORE L00,#86 PUT_PROP L00,#15,L01 PRINT_RET "After a moment she notices you're still here. "Come back later, it'll be done soon." You groan inwardly but force a sickly smile. Should have eaten the chocolates myself, you find yourself thinking." L0011: JE G4e,#dd [FALSE] L0014 TEST_ATTR "fifty-franc note",#19 [TRUE] L0012 PRINT_RET "It's not that he doesn't understand you, he's just obstructive for the sake of it." L0012: JE G50,"carte" [FALSE] L0013 STORE L00,#de INSERT_OBJ L00,G03 CALL_2N R0040 (#12) SET_ATTR "tourist map of Paris",#06 PRINT_RET "Extremely reluctantly he serves you, giving you a tourist map of Paris." L0013: PRINT_RET ""Non." And he folds his arms defiantly. Perhaps he has no such thing." L0014: JE G4e,#d1 [FALSE] L0017 JE G50,"even" [FALSE] L0015 JUMP L0016 L0015: JE G50,"odd" [TRUE] L0016 PRINT_RET ""You must answer my question!" She does seem anxious." L0016: CALL_1N R0317 STORE L00,#d1 REMOVE_OBJ L00 SET_ATTR L00,#19 SET_ATTR L00,#01 RTRUE L0017: JE G4e,#da [FALSE] L0029 JE G50,"time" [FALSE] L0021 STORE G06,#05 PRINT "You lose all sense of time and place as the boat drifts down river... It comes as a considerable relief to your befuddled nerves when the man helps you off the boat again, and you find yourself: " TEST_ATTR "tourist map of Paris",#06 [FALSE] L0018 STORE G06,#01 STORE G00,#7b L0018: TEST_ATTR "tourist map of Paris",#06 [TRUE] L0019 STORE G00,#8d L0019: REMOVE_OBJ G03 INSERT_OBJ G03,G00 CALL_2N R0198 (#01) TEST_ATTR "hollow man",#19 [TRUE] L0020 SET_ATTR "hollow man",#19 INSERT_OBJ "Ace of Cups",G03 PRINT " Was any of that real? you wonder, as you relax in the sunshine. But then you realise you are clutching a tarot card which certainly is. " L0020: RTRUE L0021: ADD G21,#01 -> G21 JE G21,#01 [FALSE] L0022 PRINT_RET ""I don't believe in that place any more. Hurry up please it's time!"" L0022: JE G21,#02 [FALSE] L0023 PRINT_RET ""Hurry up please it's time!"" L0023: JE G21,#03 [FALSE] L0024 PRINT_RET ""HURRY UP PLEASE IT'S TIME!"" L0024: JE G21,#04 [FALSE] L0025 PRINT_RET "He can't be bothered to say anything this time." L0025: JE G21,#05 [FALSE] L0026 PRINT_RET "It really is time you thought of something." L0026: JE G21,#06 [FALSE] L0027 PRINT_RET "Time and time again you haven't guessed correctly." L0027: JE G21,#07 [FALSE] L0028 PRINT_RET "The hollow man must be beginning to think you can't take a hint." L0028: PRINT_RET ""It's time!" repeats the hollow man." L0029: JE G4e,#ed [FALSE] L0030 PRINT_RET "Andromeda hisses something contemptuous at you in Greek. (Attic, not Demotic, ironically enough, but then it's all Greek to you.)" L0030: JE G4e,#fb [FALSE] L0031 PRINT_RET "Being an educated person, the bartender speaks a little Latin and some Aramaic. Being an uneducated one, you don't, and communication proves impossible." L0031: JE G4e,#0120 [FALSE] L0034 CALL_1S R0293 -> -(SP) JE (SP)+,#00 [TRUE] L0032 RFALSE L0032: CALL_2S R0453 (G50) -> -(SP) JE #00,(SP)+ [TRUE] L0033 CLEAR_ATTR "demon",#19 L0033: RFALSE L0034: JE G4e,#0122 [FALSE] L0037 CALL_1S R0294 -> -(SP) JE (SP)+,#00 [TRUE] L0035 RFALSE L0035: CALL_2S R0454 (G50) -> -(SP) JE #00,(SP)+ [TRUE] L0036 CLEAR_ATTR "angel",#19 L0036: RFALSE L0037: JE G4e,#0195 [FALSE] L0038 PRINT_RET "Madame Sosostris is meditating." L0038: JE G4e,#0163 [FALSE] L0039 CALL_1N R0082 RFALSE L0039: JE G4e,#0126 [FALSE] L0040 PRINT_RET "Austin belches splendidly by way of reply." L0040: JE G4e,#0148 [FALSE] L0041 PRINT_RET "Chirp!" L0041: JE G4e,#0179 [FALSE] L0042 PRINT_RET "A shame there were no adamantine ears, really." L0042: JE G4e,#01c6 [FALSE] L0043 PRINT_RET "You can't understand his guttural speech, but the die seems his only fascination." L0043: JE G4e,#0154 [FALSE] L0051 TEST_ATTR "Homer",#19 [TRUE] L0044 PRINT_RET "Homer is asleep." L0044: GET_PROP "Homer",#15 -> -(SP) JE (SP)+,#03 [FALSE] L0045 PRINT_RET "Homer glares back." L0045: GET_PROP "Homer",#15 -> -(SP) JE (SP)+,#00 [FALSE] L0047 JE G50,"agamemnon" [FALSE] L0046 PUT_PROP "Homer",#15,#01 PRINT_RET ""Mph," he says (untranslatably). "But can ya see the future? Who's gonna rule Alexandria after the fall of the guy they're gonna call Alexander the Big?"" L0046: CALL_1N R0295 PRINT_RET ""Hopeless," he says dismissively and falls asleep." L0047: GET_PROP "Homer",#15 -> -(SP) JE (SP)+,#01 [FALSE] L0049 JE G50,"ptolemy" [FALSE] L0048 PUT_PROP "Homer",#15,#02 PRINT_RET ""What's your favorite color?"" L0048: JUMP L0046 L0049: JE G50,"yellow" [FALSE] L0050 PUT_PROP "Homer",#04,S1016 INSERT_OBJ "Pan pipes",G03 PUT_PROP "Homer",#15,#03 CALL_2N R0040 (#21) PRINT_RET "Homer reluctantly hands you the syrinx. "Now leave me alone, I've got six books of the Iliad left to compose."" L0050: JUMP L0046 L0051: JE G4e,#01c2 [FALSE] L0053 JE G50,"anoppe","eppona" [FALSE] L0052 CALL_1N R0130 RFALSE L0052: PRINT_RET "There is no sign of the slave having heard you." L0053: JE G4e,#01bd,#01b9 [FALSE] L0054 PRINT_RET "As a barbarian scholar, unversed in Greek, you can hardly expect to converse with such as he." L0054: JE G4e,#c6,#f1 [FALSE] L0055 PRINT_RET "Grunt!" L0055: PRINT_RET "No reply." Routine R0297, 0 locals Action routine for: "achetez SPECIAL" JE G00,#f9 [FALSE] L0001 PRINT_RET "Given the language difficulty, you'd better resort to barter." L0001: JE G00,#dc [TRUE] L0002 PRINT_RET "There's nothing on sale." L0002: PRINT_RET ""Q'est-ce que vous voulez acheter?"" Routine R0298, 0 locals Action routine for: "ask CREATURE about SPECIAL" JE G4d,#85 [FALSE] L0011 CALL_2N R0041 (#11) JE G50,"daisies","chains" [FALSE] L0001 PRINT_RET "Jemima gives you a cool look. "They're just for decoration."" L0001: JE G50,"austin","cat" [FALSE] L0002 PRINT_RET ""Wretched cat! More trouble than he's worth."" L0002: JE G50,"rubber","gloves" [FALSE] L0003 PRINT_RET ""Those are my gloves."" L0003: JE G50,"tourist","map","paris" [FALSE] L0004 PRINT_RET ""I wouldn't know. I'm not the one going on holiday."" L0004: JE G50,"attic","key" [FALSE] L0005 PRINT_RET ""You haven't lost the attic key again? Hmph."" L0005: JE G50,"demijohn","bottle" [FALSE] L0006 PRINT_RET ""Load of old junk."" L0006: JE G50,"dumb","waiter","dumbwaite" [FALSE] L0007 PRINT_RET ""You leave that rickety old thing alone!"" L0007: JE G50,"calendar" [FALSE] L0008 PRINT_RET ""Not bad. Of course, my daisies are better, but not bad for beginners."" L0008: JE G50,"colour","colours" [FALSE] L0009 PRINT_RET ""Everyone has their own favourite."" L0009: JE G50,"radio","wireless" [FALSE] L0010 PRINT_RET ""I've told you a hundred times, I don't want a transistor radio. That old valve set is fine for me."" L0010: PRINT_RET "Jemima has nothing to say to you." L0011: JE G4d,#0120 [FALSE] L0012 STORE G4d,G4e STORE G4e,#0120 CALL_1N R0296 RFALSE L0012: JE G4d,#0122 [FALSE] L0013 STORE G4d,G4e STORE G4e,#0122 CALL_1N R0296 RFALSE L0013: CALL_1N R0296 RTRUE Routine R0299, 0 locals Action routine for: "exhibit off" "sing" PRINT_RET "You do your best to sing the opening from Schutz' sacred concerto "O bone Jesu, fili Mariae" (SWV 471). Unfortunately your best is such that the result is indistinguishable from "How much is that doggie in the window?"." Routine R0300, 0 locals Action routine for: "climb NOUN" JE G4d,#0d [FALSE] L0002 JE G00,#8f [FALSE] L0001 STORE G4d,#0a CALL_1N R0194 RFALSE L0001: JE G00,#ae [FALSE] L0002 PRINT_RET "It's far, far too crumbly." L0002: GET_PARENT G4d -> -(SP) JE (SP)+,#01 [FALSE] L0003 CALL_VN R0026 (G4d,#00,#13) RTRUE L0003: PRINT_RET "I don't think much is to be achieved by that." Routine R0301, 0 locals Action routine for: "wait" PRINT_RET "Time passes." Routine R0302, 0 locals Action routine for: "ram NOUN" JE G06,#01 [FALSE] L0001 PRINT_RET "For heaven's sake, this is your own house." L0001: JE G00,#c5 [FALSE] L0002 PRINT_RET "No, this is a goat. A "ram" is a kind of sheep." L0002: PRINT_RET "Please don't ram anything. This computer only has limited RAM." Routine R0303, 0 locals Action routine for: "hint" PRINT_RET "There are hints built into this game, but you will have to find out for yourself how to get them." Routine R0304, 7 locals Action routine for: "help" JE G2a,#00 [FALSE] L0001 PRINT_RET "Newcomers to the game may like to try the following: "help instructions" which gives some basic information, "help commands" details some common commands, "help credits" runs the game credits, "help release" notes the release, "help legal" makes some legal disclaimers; or "help inform" which advertises the compiler Inform "help archive" and the interactive fiction archive." L0001: STORE L00,#07 L0002: STORE L03,#00 ERASE_WINDOW #ffff SPLIT_WINDOW #0e LOADB #00,#21 -> L01 JE L01,#00 [FALSE] L0003 STORE L01,#50 L0003: SET_WINDOW #01 SET_CURSOR #01,#01 SET_TEXT_STYLE REVERSE STORE Gef,L01 JL Gef,#01 [TRUE] L0005 L0004: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0004 L0005: DIV L01,#02 -> -(SP) SUB (SP)+,#08 -> L02 SET_CURSOR #01,L02 PRINT "Help with Curses" SET_CURSOR #02,#01 STORE Gef,L01 JL Gef,#01 [TRUE] L0007 L0006: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0006 L0007: SET_CURSOR #02,#02 PRINT "N = next subject" SUB L01,#0c -> L02 SET_CURSOR #02,L02 PRINT "P = previous" SET_CURSOR #03,#01 STORE Gef,L01 JL Gef,#01 [TRUE] L0009 L0008: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0008 L0009: SET_CURSOR #03,#02 PRINT "RETURN = read subject" SUB L01,#0f -> L02 SET_CURSOR #03,L02 PRINT "Q = resume game" SET_TEXT_STYLE ROMAN SET_CURSOR #05,#02 LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT "Information is available on the following subjects: Instructions giving some basic information Commands detailing some common commands Credits game credits Release release notes Legal legal disclaimers Inform advertising the compiler Inform Archive and the interactive fiction archive" L0010: JE L00,L03 [TRUE] L0012 JG L03,#00 [FALSE] L0011 SET_CURSOR L03,#04 PRINT " " L0011: SET_CURSOR L00,#04 PRINT ">" L0012: STORE L03,L00 READ_CHAR #01,#00,#00 -> L04 JE L04,#4e,#6e,#81 [FALSE] L0014 INC L00 JE L00,#0e [FALSE] L0013 STORE L00,#07 L0013: JUMP L0010 L0014: JE L04,#50,#70,#82 [FALSE] L0016 DEC L00 JE L00,#06 [FALSE] L0015 STORE L00,#0d L0015: JUMP L0010 L0016: JE L04,#51,#71 [FALSE] L0017 JUMP L0029 L0017: JE L04,#0a,#0d [FALSE] L0028 SET_WINDOW #00 LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ STORE G41,#01 NEW_LINE NEW_LINE NEW_LINE JE L00,#07 [FALSE] L0018 STORE G50,"instructi" STORE L05,#06 STORE L06,S1017 L0018: JE L00,#08 [FALSE] L0019 STORE G50,"commands" STORE L05,#09 STORE L06,S1018 L0019: JE L00,#09 [FALSE] L0020 STORE G50,"credits" STORE L05,#04 STORE L06,S1019 L0020: JE L00,#0a [FALSE] L0021 STORE G50,"release" STORE L05,#07 STORE L06,S1020 L0021: JE L00,#0b [FALSE] L0022 STORE G50,"legal" STORE L05,#07 STORE L06,S1021 L0022: JE L00,#0c [FALSE] L0023 STORE G50,"inform" STORE L05,#06 STORE L06,S1022 L0023: JE L00,#0d [FALSE] L0024 STORE G50,"archive" STORE L05,#04 STORE L06,S1023 L0024: ERASE_WINDOW #ffff SPLIT_WINDOW #01 LOADB #00,#21 -> L01 JE L01,#00 [FALSE] L0025 STORE L01,#50 L0025: SET_WINDOW #01 SET_CURSOR #01,#01 SET_TEXT_STYLE REVERSE STORE Gef,L01 JL Gef,#01 [TRUE] L0027 L0026: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0026 L0027: DIV L01,#02 -> -(SP) SUB (SP)+,L05 -> L02 SET_CURSOR #01,L02 PRINT_PADDR L06 SET_TEXT_STYLE ROMAN SET_WINDOW #00 STORE G41,#01 NEW_LINE CALL_1N R0305 PRINT " [Please press SPACE.] " READ_CHAR #01,#00,#00 -> L04 JUMP L0002 L0028: JUMP L0010 L0029: LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ SET_CURSOR #01,#01 ERASE_WINDOW #ffff SET_WINDOW #00 STORE G41,#01 CALL_1N R0159 NEW_LINE NEW_LINE NEW_LINE CALL_1N R0198 RTRUE Routine R0305, 1 local Action routine for: "help SPECIAL" STORE L00,G50 NEW_LINE JE L00,"instructi" [FALSE] L0001 PRINT " Welcome to the world of CURSES, an " PRINT "Advanced " PRINT "interactive Adventure game... " PRINT "The scene is set initially in the present day, at Meldrew Hall, an old family seat in the shires of England. You play the part of the current heir to the house. (This doesn't make your family rich aristocrats - just people who suffer very badly from inheritance tax.) Remember, your only aim is to find that map of Paris so you can go on holiday - try not to get diverted by any enormous quests. Still, it would be interesting to find out: " PRINT " Just how realistic are the Tarot cards? What do sixth century politics have to do with you? Surely Greek myths can't come into this? What on earth is wrong with your entire family? Do the National Trust have sinister motives? Why is it so hard to go to church these days? What are daisies for? Or goats, for that matter? Can modernist poetry really be bad for you? Should you rescue someone who doesn't want you to? " PRINT "To finally understand the secret, you will need to reach the Master Game, a concluding game-within-a-game buried deep in the past. Good luck!" JUMP L0008 L0001: JE L00,"release" [FALSE] L0002 CALL_1N R0029 PRINT " Release 12 is the fifth public release of "Curses", and the first "Advanced story file" version. The four previous public releases were: " PRINT " Release 7 / 930428 (the original and still the worst) Release 8 / 930603 (much enhanced, slightly larger) Release 9 / 931111 (extended by about 20%) Release 10 / 940120 (tidied up a little) " PRINT "Altogether, since Release 7 "Curses" has seen 211 minor improvements, and small additions too numerous to mention. Release 12 is a major extension, adding many new regions, puzzles and features to tax beginners and experts alike." PRINT " This edition comes to you from the August 1994 edition of Acorn User magazine." JUMP L0008 L0002: JE L00,"credits" [FALSE] L0003 SET_TEXT_STYLE BOLDFACE PRINT "CURSES " SET_TEXT_STYLE ROMAN PRINT "An Interactive Diversion by Graham Nelson Play-testing by Michael Kinyon, Gareth Rees and Richard Tucker Together with informers: " PRINT "Torbjorn Andersson, Jonathan Badger, Allen Braunsdorf, Otto Christenson, Alan Cox, Richard Develyn, Paul David Doherty, Roger Dominick, Ivan Drucker, Jon Drukman, Paul Fletcher, Richard Forster, Ron Galicia, Allen Garvin, Mark "Guido" Guidarelli, Will Hurwood, Hakan Huss, Darin Johnson, Darius Katz, Peter Killworth, Mark Knibbs, Chris Mann, M. Sean Molley, Byron Montgomerie, David Moore, Christine Nelson, Toby Nelson, Carrie O'Grady, Michael A. Patton, Mason Reed, Robert Rendell, Loren Rittle, John Rodriguez, Kathleen Rudden, Bryan Scattergood, Dilip Sequeira, Nyko Tyni, David VanBronkhorst, Robin Watts, John West, Christopher A. Wichura, Graham Willmott, Andrew Wren and Zhang Genglue. " PRINT "Archimedes !Zip Interpreter by: Mark Howell, ported by Edouard Poor. Acorn User liaison: David Matthewman and Robin Watts. " PRINT "Apologies and acknowledgements to: the late Mr T. S. Eliot, the Oxford History of England, Philip Vellacott's translations of the Greek plays and the guidebooks of the British Museum; " PRINT "and Volker Blasius, for keeping the if-archive. " PRINT "Coffee mugs fired by: Helena Verrill. " PRINT "Genealogy, photography and Archimedes consultant: Peter Nelson. " PRINT "Archaeology: the InfoTaskForce, Paul David Doherty and Mark Howell, without whose excavations Inform could not have been written. If I have hacked deeper than them, it is because I stand in their trenches." JUMP L0008 L0003: JE L00,"legal" [FALSE] L0004 CALL_1N R0029 PRINT " This story file is copyright (c) Graham Nelson 1993/4, but may be freely distributed and used provided no profit is involved and provided it is not modified in any way. " PRINT "Although it conforms to some (not quite all) file standards previously used by a certain computing company, it contains no fragments of code written by anyone other than the author. It was not produced by modification of any existing story file. The author was extremely tempted to hide an important clue here, but thought better of it. No trade marks are (knowingly) used. All characters and locations are imaginary, and any resemblance to real persons or places is accidental." JUMP L0008 L0004: JE L00,"commands" [FALSE] L0005 PRINT "Basic commands consist either of a verb on its own, or a verb with one or more nouns. For instance, to see where you are type "look". Some verbs can also have more elaborate forms; for instance you could also look at, inside or under something. "Curses" understands about " PRINT "1200" PRINT " English words, so most reasonable synonyms are allowed. To pick something up, "take thing" and to drop it again, "drop thing". To see what you have, type "take inventory" or just "inventory". You can move about with commands such as "go west", or just "west" for short. (It is assumed that you are blessed with an excellent sense of direction.) " PRINT "Some commands can act on more than one thing. You can "drop all", which will drop everything (except things you're wearing), for instance. Or if you found a packing case with a number of things in, you could type such things as: remove everything but the blue key get all the coins except ten, twenty and fifty (Containers may also be emptied or emptied into each other.) If you are not explicit enough, sometimes the game can infer what you mean, but at other times it will ask for further details. It might have replied to the first line above by saying (from the yellow packing case) " PRINT "so that you know what has been assumed on your behalf. If there had been two blue keys you might reasonably have meant, it would reply with something like Which do you mean, the blue doorkey or the Blue Moon Agency key? You may either tell it which, or else give up and do something else instead. If you don't mind which key, you can always say something such as: drop a key into the slot and the game will make a sensible choice and tell you what it was. " PRINT ""Curses" sometimes assumes commands which you implicitly make, but always tells you what they are in brackets. For instance: >look up bach in book (first taking the Encyclopaedia of Composers) (putting the tuning fork in the rucksack to make room) "J. S. Bach (1685-1750) had a pet aardvark called Nigel... " PRINT ""it" refers to the last thing manipulated, "him" and "her" to anyone obvious in the room, and "again" repeats the last command. You can "save", "restore" or "restart" the game at any time, or indeed "quit" or ask for your "score", which also tells the time. "fullscore" or "full" gives a breakdown of the score. As an aide-memoire the command "objects" tells you where you left things you once had, and "places" says where you have been. " PRINT "If you want to check that your copy of the game file is intact (and not, for instance, corrupted by some file-transfer process you used to get it), you can "verify" it. These commands do not take up any game time, and nor does anything the game didn't understand. " PRINT "Some jaundiced players tire of long descriptions of places, and they can type "short" (or "superbrief") to make the game only give short ones. Amnesiac players, on the other hand, may like to use "long" (or "verbose") to give only long ones. Either kind can go back to the usual state of affairs with "normal" (or "brief"). " PRINT "You are currently playing an Advanced-story-file version of the game, which employs special effects such as " SET_TEXT_STYLE BOLDFACE PRINT "bold face" SET_TEXT_STYLE ROMAN PRINT " names of rooms and a more elaborate status line than usual. Also, less than altogether relevant quotations pop up from time to time. If these effects do not seem to work properly on your machine, or are just downright annoying, they can be turned off with "plain" and on again with "pretty". " PRINT "From time to time you will be told that your score has changed: this can be turned off with "notify off", turned on again with "notify on" or made even more common by "notify full" (which even tells you about scores accruing from visits to places, unusual items discovered and the like). " PRINT "Simple typing mistakes can sometimes be corrected just by typing "oops" followed by the word you had intended to type, so for instance: drop fish in buket oops bucket The game knows several useful abbreviations: i for inventory, ne for northeast (and so on), l for look, g for again, o for oops, x for examine, z for wait (short for "zzz" - sorry about that). " PRINT "You can sometimes enter larger objects you find. You might well be able to get in a tractor, for instance, though driving it around might be harder. " PRINT "From time to time, you will wish to speak to other people. If you only have a single word to say, you could use commands like answer yes say boo to goose (Text in quotation marks is not allowed.) The game will usually guess who you want to talk to if you miss off the name. A better way to talk, which allows more complicated remarks, is to use commands such as " PRINT " goose, boo wine waiter, give me the bill ask professor about turtles though the waiter may have better things to do, and the professor might be quite mad. Some documents may be consulted in this game. For this, try commands such as look up chlorine consult periodic table about argon " PRINT "You can give several commands in a row by use of "then" (or full stops, commas or "and" in some contexts): so, for instance, e, s, get fish then inventory e.e.open door.s " PRINT "There are, of course, many other commands for more specialised circumstances. A final word of warning: cursing is strictly forbidden in this game." JUMP L0008 L0005: JE L00,"inform" [FALSE] L0006 PRINT ""Inform" is "Curses"' Siamese twin, an Adventure game compiler written by the author. It takes a C-like source (this game takes up about 16000 lines, or 650K) to produce story files which can be played on almost any modern computer. ("Curses" has been played on Acorns, PCs, Macs, Amigas, Ataris, Suns, NeXTs, VAX and IBM mainframes and many other machines.) " PRINT "Inform will be published in next month's (that is, in the September 1994) edition of Acorn User. Order a copy from your newsagents now!" JUMP L0008 L0006: JE L00,"archive" [FALSE] L0007 PRINT "Players with access to the Internet can find an archive of "interactive fiction" (as adventure games like to call themselves) at the German site "ftp.gmd.de", in the "if-archive". This is currently maintained by Volker Blasius, and open to anonymous FTP (file transfer protocol). The archive contains the work of many people, and includes interpreter programs capable of running files like this one on almost any computer. "Curses" itself, and the ANSI C source for its compiler "Inform", together with a manual and code for small example games, are archived there." JUMP L0008 L0007: PRINT_RET "There's no help on that, sorry." L0008: NEW_LINE RTRUE Routine R0306, 2 locals Action routine for: "xallow SPECIAL" STORE L00,#01 L0001: JL L00,#01d2 [FALSE] L0008 GET_PROP L00,#09 -> -(SP) JE (SP)+,#00 [FALSE] L0002 GET_PROP L00,#0a -> -(SP) JE (SP)+,#00 [FALSE] L0002 GET_PROP L00,#0b -> -(SP) JE (SP)+,#00 [FALSE] L0002 GET_PROP L00,#0c -> -(SP) JE (SP)+,#00 [TRUE] L0003 L0002: INC L01 JUMP L0007 L0003: GET_PROP L00,#11 -> -(SP) JE (SP)+,#00 [FALSE] L0004 GET_PROP L00,#12 -> -(SP) JE (SP)+,#00 [FALSE] L0004 GET_PROP L00,#0d -> -(SP) JE (SP)+,#00 [TRUE] L0005 L0004: INC L01 JUMP L0007 L0005: GET_PROP L00,#0f -> -(SP) JE (SP)+,#00 [FALSE] L0006 GET_PROP L00,#0e -> -(SP) JE (SP)+,#00 [FALSE] L0006 GET_PROP L00,#10 -> -(SP) JE (SP)+,#00 [TRUE] L0007 L0006: INC L01 L0007: INC L00 JUMP L0001 L0008: PRINT_NUM L01 PRINT " visitable locations. " JE G51,#39 [FALSE] L0009 STORE G1f,#01 PRINT_RET "Ok." L0009: PRINT_RET "No." Routine R0307, 1 local Action routine for: "xcheat" STORE L00,#0f REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#10 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#16 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#14 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#12 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#11 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#15 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#13 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,#1a REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" CALL_2N R0059 (#0f) CALL_2N R0059 (#1a) CALL_2N R0059 (#10) CALL_2N R0059 (#16) CALL_2N R0059 (#14) CALL_2N R0059 (#12) CALL_2N R0059 (#11) CALL_2N R0059 (#15) CALL_2N R0059 (#13) INSERT_OBJ "gold watch on a chain","Graham's Lair" SET_ATTR "gold watch on a chain",#06 INSERT_OBJ "smooth round stone","Graham's Lair" INSERT_OBJ "gleaming amber gem","Graham's Lair" SET_ATTR "gleaming amber gem",#06 INSERT_OBJ "golden astrolabe","Graham's Lair" INSERT_OBJ "Austin","Causeway" SET_ATTR "Austin",#19 INSERT_OBJ "Crescent Moon","Graham's Lair" INSERT_OBJ "rusty iron key",G03 INSERT_OBJ "glowing golden orb",G03 STORE L00,#c1 REMOVE_OBJ L00 INSERT_OBJ L00,"Graham's Lair" STORE L00,#c3 REMOVE_OBJ L00 INSERT_OBJ L00,"Graham's Lair" STORE L00,#c0 REMOVE_OBJ L00 INSERT_OBJ L00,"Graham's Lair" STORE L00,#de REMOVE_OBJ L00 INSERT_OBJ L00,"Graham's Lair" STORE L00,#3b REMOVE_OBJ L00 INSERT_OBJ L00,"Graham's Lair" STORE L00,#63 REMOVE_OBJ L00 INSERT_OBJ L00,"photographer's flash" STORE L00,#e1 REMOVE_OBJ L00 INSERT_OBJ L00,"photographer's flash" CLEAR_ATTR "timer-detonator",#0f PUT_PROP L00,#15,#00 STORE L00,#4a REMOVE_OBJ L00 INSERT_OBJ L00,"Graham's Lair" STORE L00,#bc REMOVE_OBJ L00 INSERT_OBJ L00,"Graham's Lair" PRINT_RET "Ok." Routine R0308, 0 locals Action routine for: "xasnc" CALL_1N R0455 STORE G1c,#01 ADD G02,#012c -> G02 REMOVE_OBJ "glowing golden orb" INSERT_OBJ "glowing golden orb",G03 PRINT_RET "Ok." Routine R0309, 0 locals Action routine for: "xdeterm" STORE G1d,#01 STORE G36,#02 STORE G37,#02 INSERT_OBJ "Austin","Souvenirs Room" PRINT_RET "Ok." Routine R0310, 0 locals Action routine for: "xtravel" REMOVE_OBJ G03 INSERT_OBJ G03,"Graham's Lair" STORE G00,#0e CALL_2N R0198 (#01) RTRUE Routine R0311, 0 locals Action routine for: "xattic SPECIAL" STORE G06,G51 CLEAR_ATTR "weed killer bottle",#19 CALL_1N R0160 RFALSE orphan code fragment: STORE G36,#fff4 L0001: JL G36,#0d [FALSE] L0004 STORE G37,#fff4 L0002: JL G37,#0d [FALSE] L0003 PRINT "(" PRINT_NUM G36 PRINT "," PRINT_NUM G37 PRINT ") " CALL_2N R0073 (G36) PRINT " " CALL_2N R0073 (G37) NEW_LINE INC G37 JUMP L0002 L0003: INC G36 JUMP L0001 L0004: RTRUE Routine R0312, 2 locals Action routine for: "nap" TEST_ATTR "carbolic soap",#01 [TRUE] L0001 PRINT_RET "Racked with guilt over your bad language, you are unable to nod off." L0001: GET_PARENT G03 -> L00 JE L00,#019b [FALSE] L0002 PRINT "The heavy weave mattings feel so restful that you slide into... " STORE G06,#0d STORE G00,#019f PUT_PROP "The Spirit World",#15,#01 INSERT_OBJ G03,"The Spirit World" CALL_2N R0198 (#01) RTRUE L0002: JE L00,#01a1 [FALSE] L0004 GET_PROP "The Spirit World",#15 -> -(SP) JE (SP)+,#04 [FALSE] L0003 PRINT_RET "The spell of the tomb is broken now, and you cannot sleep." L0003: PRINT "The heavy weave mattings draw you deeper into... " STORE G06,#0d STORE G00,#019f INSERT_OBJ G03,"The Spirit World" GET_PROP "The Spirit World",#15 -> -(SP) ADD (SP)+,#01 -> -(SP) PUT_PROP "The Spirit World",#15,(SP)+ CALL_2N R0198 (#01) RTRUE L0004: JE L00,#2b [FALSE] L0005 JUMP L0011 L0005: JE L00,#5c [TRUE] L0006 PRINT_RET "Your mother taught you never to go to sleep until you're tucked up in bed." L0006: TEST_ATTR "comfortable bed",#19 [FALSE] L0007 PRINT_RET "You doze awhile, but that's all." L0007: SET_ATTR "comfortable bed",#19 PRINT "You sleep uneasily, fancying you can see Miss Alison writing at her table, trying to see the words, and always on the edge of a... " GET_CHILD G03 -> L00 [TRUE] L0008 L0008: JE L00,#00 [TRUE] L0010 GET_SIBLING L00 -> L01 [TRUE] L0009 L0009: REMOVE_OBJ L00 INSERT_OBJ L00,"east wall" STORE L00,L01 JUMP L0008 L0010: STORE G06,#0a STORE G00,#0127 REMOVE_OBJ G03 INSERT_OBJ G03,"Melancholy Dream" CALL_1N R0198 RFALSE L0011: GET_PARENT "Austin" -> -(SP) JE (SP)+,#28 [FALSE] L0012 PRINT_RET "Austin leaps up onto the bed, jumps around for a bit, and then falls back onto the floor. You are unable to get any sleep." L0012: TEST_ATTR "camp bed",#19 [FALSE] L0013 PRINT_RET "You doze awhile, but that's all." L0013: SET_ATTR "camp bed",#19 PRINT "You sleep unexpectedly deeply, but just as you think you are starting to wake up, you experience a sudden... " GET_CHILD G03 -> L00 [TRUE] L0014 L0014: JE L00,#00 [TRUE] L0016 GET_SIBLING L00 -> L01 [TRUE] L0015 L0015: REMOVE_OBJ L00 INSERT_OBJ L00,"east wall" STORE L00,L01 JUMP L0014 L0016: STORE G06,#08 STORE G00,#87 REMOVE_OBJ G03 INSERT_OBJ G03,"Premonition" CALL_1N R0198 RTRUE Routine R0313, 0 locals TEST_ATTR "door",#19 [FALSE] L0001 RTRUE L0001: SET_ATTR "door",#19 STORE G41,#01 CALL_VN R0035 (#61,#04) ADD G01,#05 -> G01 STORE G17,#01 PRINT_RET " A shame to see such a good try unrewarded... oh, go on, have an extra five points." Routine R0314, 1 local PRINT "the " JE L00,#01 [FALSE] L0001 PRINT "Ace" L0001: JE L00,#02 [FALSE] L0002 PRINT "Two" L0002: JE L00,#03 [FALSE] L0003 PRINT "Three" L0003: JE L00,#04 [FALSE] L0004 PRINT "Four" L0004: JE L00,#05 [FALSE] L0005 PRINT "Five" L0005: JE L00,#06 [FALSE] L0006 PRINT "Six" L0006: JE L00,#07 [FALSE] L0007 PRINT "Seven" L0007: JE L00,#08 [FALSE] L0008 PRINT "King" L0008: JE L00,#09 [FALSE] L0009 PRINT "Queen" L0009: JE L00,#0a [FALSE] L0010 PRINT "Knave" L0010: RTRUE Routine R0315, 3 locals JE G08,#00 [FALSE] L0028 L0001: RANDOM #32 -> L02 JE L02,L00 [FALSE] L0002 JUMP L0001 L0002: JE L02,L01 [FALSE] L0003 JUMP L0001 L0003: JE L02,#01 [FALSE] L0004 PRINT "the Blank Card ("which I am forbidden to see")" L0004: JE L02,#02 [FALSE] L0005 PRINT "the One-Eyed Merchant" L0005: JE L02,#03 [FALSE] L0006 PRINT "the Sledging Girl" L0006: JE L02,#04 [FALSE] L0007 PRINT "the Red Rock" L0007: JE L02,#05 [FALSE] L0008 PRINT "the Stony Wastes" L0008: JE L02,#06 [FALSE] L0009 PRINT "the Arch-Duke" L0009: JE L02,#07 [FALSE] L0010 PRINT "the Hyacinths" L0010: JE L02,#08 [FALSE] L0011 PRINT "the Wheel" L0011: JE L02,#09 [FALSE] L0012 PRINT "Belladonna, the Lady of the Rocks" L0012: JE L02,#0a [FALSE] L0013 PRINT "the Hypocrit Reader" L0013: JE L02,#0b [FALSE] L0014 PRINT "the Golden Cupidon" L0014: JE L02,#0c [FALSE] L0015 PRINT "the Candle-Flames" L0015: JE L02,#0d [FALSE] L0016 PRINT "the Carved Dolphin" L0016: JE L02,#0e [FALSE] L0017 PRINT "Philomel, the Barbarous King" L0017: JE L02,#0f [FALSE] L0018 PRINT "the Lonely Typist" L0018: JE L02,#10 [FALSE] L0019 PRINT "the Bradford Millionaire" L0019: JE L02,#11 [FALSE] L0020 PRINT "Magnus, the Martyr" L0020: JE L02,#12 [FALSE] L0021 PRINT "Phlebas, the Phoenician" L0021: JE L02,#13 [FALSE] L0022 PRINT "the Woman with Long Black Hair" L0022: JE L02,#14 [FALSE] L0023 PRINT "the Cicadas in the Pine Trees" L0023: JL L02,#15 [FALSE] L0024 RET L02 L0024: JL L02,#1f [FALSE] L0025 SUB L02,#14 -> -(SP) CALL_2N R0314 ((SP)+) PRINT " of Staves" RET L02 L0025: JE L02,#1f [FALSE] L0026 PRINT "Tiresias, the shape changer" RET L02 L0026: JL L02,#29 [FALSE] L0027 SUB L02,#1e -> -(SP) CALL_2N R0314 ((SP)+) PRINT " of Cups" RET L02 L0027: SUB L02,#28 -> -(SP) CALL_2N R0314 ((SP)+) PRINT " of Stones" RET L02 RET L02 L0028: DEC G08 LOADB G07,G08 -> L02 INSERT_OBJ L02,"Consulting Room" CALL_2N R0290 (L02) RET L02 Routine R0316, 1 local STOREB G07,G08,L00 INC G08 RTRUE Routine R0317, 3 locals PRINT "Madame Sosostris picks up the cards and deals them onto the table. She frowns in concentration as " CALL_VS R0315 (#00,#00) -> L00 PRINT ", " CALL_VS R0315 (L00,#00) -> L01 PRINT " and then " CALL_VS R0315 (L00,L01) -> L02 PRINT " show. " JE L00,#d2 [FALSE] L0001 PRINT "She blanches with alarm, then recovers and jabbers something about not taking the cards too literally, the images being symbolic and so on. As rapidly as she possibly can, she warns you to fear death by water and then hustles you out onto the street. " JUMP L0006 L0001: JE L00,#c1 [TRUE] L0002 JUMP L0005 L0002: JE L01,#c3 [TRUE] L0003 JUMP L0005 L0003: JE L02,#c2 [TRUE] L0004 JUMP L0005 L0004: PRINT ""You have come! At last, after all these centuries! But there is little I can do to ease your way, save to return the staff you left with me for safe keeping." And she shows you out. You feel rather bewildered. " STORE L00,#d5 INSERT_OBJ L00,G03 SET_ATTR "Unreal City",#19 JUMP L0006 L0005: CALL_2N R0041 (#12) PRINT ""Curse it, another nobody," she hisses in an unguarded moment, as she tidies the pack absentmindedly with her hands. Then she recovers her poise and advises about handsome strangers, fearing death by water, crossing palms with gold and so on. Eventually she ushers you out. " L0006: REMOVE_OBJ G03 STORE G00,#c9 INSERT_OBJ G03,"Unreal City" CALL_2N R0198 (#01) RTRUE Routine R0318, 0 locals JE G4e,G03 [FALSE] L0001 STORE G05,#01 PRINT_RET "Oh dear. Like Mad Isaac before you, you have spontaneously combusted!" L0001: JE G4e,#0126 [FALSE] L0002 CALL_2N R0041 (#06) PRINT_RET "You don't really want to vapourise Austin." L0002: JE G4e,#0178 [FALSE] L0005 TEST_ATTR "adamantine skull",#19 [FALSE] L0003 TEST_ATTR "adamantine heart",#19 [FALSE] L0003 TEST_ATTR "adamantine hand",#19 [TRUE] L0004 L0003: PRINT_RET "The bones jerk and rattle, but seem unable to come together into life." L0004: REMOVE_OBJ "adamantine statue" INSERT_OBJ "adamantine knight","West Side Chapel" CALL_2N R0040 (#2a) STORE G72,#0179 PRINT_RET "The adamantine knight leaps up, invigorated by the fire in his skeletal eyes, a new spark in his belly! He bows gravely, in the elaborate style of a mime artist." L0005: JE G4e,#0179 [FALSE] L0006 PRINT_RET "Adamantine is fireproof." L0006: JE G4e,#0146 [FALSE] L0007 PRINT_RET "The wood seems to have been treated somehow, and is fireproof." L0007: TEST_ATTR G4e,#04 [FALSE] L0008 PRINT_RET "For heaven's sake, you're only looking for an out-of-date map. Murder does seem a little extreme." L0008: JE G4e,#f3 [FALSE] L0010 TEST_ATTR "wall of thorns",#0a [FALSE] L0009 PRINT_RET "The wall wriggles in discomfort, but manages to avoid further devastation." L0009: SET_ATTR "wall of thorns",#0a PRINT_RET "Fire leaps out from the rod into the heart of the thorn wall, which screams out as it burns, revealing a great hole through the wild flames. You catch a tantalising glimpse of a great Temple, before the wall heals back. But it is unable to recover entirely, and a charred gap is left to the south. You could probably squeeze through it." L0010: TEST_ATTR G4e,#0e [FALSE] L0011 JUMP L0015 L0011: TEST_ATTR G4e,#0f [FALSE] L0012 JUMP L0015 L0012: JE G4e,#35 [FALSE] L0013 PRINT "The melting point of this glass is very high, and amazingly it withstands the bolt of fire. " CALL_1N R0313 RFALSE L0013: JE G4e,#e0,#e1 [FALSE] L0014 STORE G05,#01 PRINT_RET "(Perhaps predictably) the bomb explodes!" L0014: REMOVE_OBJ G4e PRINT "A bolt of fire leaps from the rod and consumes " CALL_2N R0290 (G4e) PRINT_RET " utterly!" L0015: STORE G05,#01 PRINT_RET "You start a great conflagration, and then perish in it!" Routine R0319, 0 locals JE G4e,G03 [FALSE] L0001 PRINT_RET "You feel a sudden chill." L0001: TEST_ATTR G4e,#04 [FALSE] L0002 PRINT "For an extremely brief moment, " CALL_2N R0290 (G4e) PRINT_RET " freezes up." L0002: JE G4e,#17,#18,#19 [FALSE] L0004 TEST_ATTR G4e,#19 [FALSE] L0003 PRINT_RET "It's already cold." L0003: SET_ATTR G4e,#19 PRINT_RET "There is an enormous hissing of steam, creating wildly swirling mists, after whose parting an apparently cool rod is left behind." L0004: PRINT_RET "Nothing obvious happens." Routine R0320, 2 locals JE G4e,G03 [TRUE] L0001 PRINT_RET "Nothing obvious happens." L0001: JE G00,#a8 [FALSE] L0002 STORE G00,G28 REMOVE_OBJ G03 INSERT_OBJ G03,G27 REMOVE_OBJ "glowing golden orb" INSERT_OBJ "glowing golden orb",G03 PRINT "Although nothing seems to happen to you, the whole golden sphere gracefully contracts, pulling itself tight until it sits comfortably in the palm of your hand. You blink. " CALL_2N R0198 (#01) RTRUE L0002: CALL_1N R0423 PRINT "You are engulfed in a cloud of spinning white lights, like insects. When the swarm clears, you find yourself transported... " JE G06,#07 [FALSE] L0003 STORE L01,#7b STORE L00,#1c REMOVE_OBJ L00 L0003: JE G06,#07 [TRUE] L0007 RANDOM #04 -> L00 STORE L01,#1d JE L00,#02 [FALSE] L0004 STORE L01,#2e L0004: JE L00,#03 [FALSE] L0005 STORE L01,#61 L0005: JE L00,#04 [FALSE] L0006 STORE L01,#37 L0006: JE G1d,#01 [FALSE] L0007 STORE L01,#1d L0007: STORE G06,#01 REMOVE_OBJ G03 INSERT_OBJ G03,L01 STORE G00,L01 CALL_1N R0198 RTRUE Routine R0321, 0 locals JE G4e,G03 [FALSE] L0001 PRINT_RET "You feel suddenly obedient, and briefly fancy a dog biscuit." L0001: JE G4e,#0126 [FALSE] L0002 PRINT_RET "Alas, Austin is far, far too undomesticated. It has no effect." L0002: JE G4e,#0148 [FALSE] L0003 PRINT_RET "Guided by some animal sixth sense, the squirrel gracefully jumps out of the way." L0003: JE G4e,#f1 [TRUE] L0004 PRINT_RET "Nothing obvious happens." L0004: SET_ATTR "herd of goats",#19 CALL_2N R0041 (#18) PRINT_RET "The goats suddenly look up at you with awe, although they resume their former interest in eating the grass quite quickly." Routine R0322, 0 locals JE G4e,G03 [FALSE] L0001 PRINT_RET "You acquire a sudden sun tan, but it soon fades." L0001: JE G4e,#0126 [FALSE] L0002 PRINT_RET "Austin is already ginger, which is near enough." L0002: JE G4e,#0179 [FALSE] L0003 PRINT_RET "He shrugs it off. (Isn't adamantine impressive enough for you?)" L0003: JE G4e,#a4 [FALSE] L0004 SET_ATTR "metal wall",#0a PRINT_RET "At once, the bronze polishes up to the shine of a mirror." L0004: JE G4e,#9d [TRUE] L0005 PRINT_RET "Nothing obvious happens." L0005: TEST_ATTR "bronze mural",#0a [FALSE] L0006 PRINT_RET "Nothing further happens." L0006: SET_ATTR "bronze mural",#0a PRINT_RET "With an awful heaving, wrenching noise, the mural slides a little sideways, opening up a murky downward passage which can't have been used for centuries." Routine R0323, 0 locals JE G4e,G03 [FALSE] L0002 TEST_ATTR "big electrician's switch",#18 [FALSE] L0001 PRINT_RET "You feel no different. Perhaps there's no such thing as luck." L0001: SET_ATTR G4d,#19 PRINT_RET "You feel optimistic and lucky. Mind you, you feel that most times." L0002: JE G4e,#0126 [FALSE] L0003 PRINT_RET "Austin is already too lucky by half." L0003: JE G4e,#0179 [FALSE] L0004 PRINT_RET "Reassembled after all these years... how lucky can you get?" L0004: JE G4e,#01c6 [FALSE] L0005 SET_ATTR "gambling sailor",#22 PRINT_RET "The sailor shudders suddenly." L0005: JE G4e,#01c7 [FALSE] L0006 SET_ATTR "inscribed die",#22 PRINT_RET "The die rattles a little, then settles." L0006: PRINT_RET "Nothing obvious happens." Routine R0324, 0 locals JE G4e,#f1 [FALSE] L0001 PRINT_RET "Still obedient to your intent, the goats part so that one stands alone. Using this Rod, you vapourise it instantaneously, and the rest contentedly return. Do you think there might be a moral to draw here about the use, and abuse, of power?" L0001: JE G4e,#0126 [FALSE] L0002 CALL_2N R0041 (#06) PRINT_RET "You don't really want to sacrifice Austin." L0002: JE G4e,#0179 [FALSE] L0003 PRINT_RET "Would be a shame, after all that surgery." L0003: TEST_ATTR G4e,#06 [FALSE] L0004 REMOVE_OBJ G4e PRINT "You decide you can manage without " CALL_2N R0290 (G4e) PRINT_RET ", which you annihilate with the Rod." L0004: JE G00,#a8 [FALSE] L0006 JE G4e,#a9 [FALSE] L0006 TEST_ATTR "Inside the Orb",#19 [TRUE] L0005 STORE G05,#09 PRINT_RET "The Black pieces make a rash break out of their defences, sacrificing a piece in vain and going down to a rapid defeat as a result. The White Queen rises from the board, an avenging angel's smile on her face, and swings a broadsword of burning light across your body..." L0005: STORE G00,G28 REMOVE_OBJ G03 INSERT_OBJ G03,G27 REMOVE_OBJ "glowing golden orb" INSERT_OBJ "glowing golden orb",G03 SET_ATTR "glowing golden orb",#19 CALL_2N R0040 (#11) PUT_PROP "glowing golden orb",#02,S1024 PRINT "The White pieces advance: first a bishop, then a knight is sacrificed, clearing away the wall of pawns which surround the Black king so that a dazzling checkmate can be executed! You fade out of the orb as oddly as you came, struck by the way it now almost pulsates in your palm. " CALL_2N R0198 (#01) RTRUE L0006: JE G4e,G03 [FALSE] L0007 STORE G05,#01 PRINT_RET "You feel a noble surge of pride as your body is incinerated by the Rod. At least you died for some terribly important cause, although exactly what it was seems to have slipped your mind." L0007: PRINT_RET "Nothing obvious happens." Routine R0325, 0 locals JE G4e,G03 [FALSE] L0001 STORE G1c,#01 PRINT_RET "Nothing obvious happens. You curse eloquently in Celtic." L0001: JE G4e,#dd [FALSE] L0002 PRINT_RET "Nice idea. Now the kiosk-keeper also knows a smattering of Celtic. Unfortunately his national pride is too strong. You'll have to try something else - at least you have carte blanche to solve this problem." L0002: PRINT_RET "Nothing obvious happens." Routine R0326, 0 locals JE G4e,#0179 [FALSE] L0001 PRINT_RET "The knight jumps on the spot (landing loudly)." L0001: JE G4e,#9b [FALSE] L0002 PRINT_RET "The marble jerks, as if straining to grow, but falls back dead." L0002: JE G4e,#f8 [FALSE] L0004 GET_PARENT "fig" -> -(SP) JE (SP)+,#00 [TRUE] L0003 PRINT_RET "The tree tried hard, but in the end it couldn't give a fig." L0003: INSERT_OBJ "fig",G03 PRINT_RET "The tree strains especially hard, and manages to produce another fig, which ripens and falls... you jump forward and catch the fruit just before it would splatter to earth." L0004: JE G4e,G03 [FALSE] L0005 PRINT_RET "Your hair stands momentarily on end, as if it wants to stalk up out of your head, but happily it decides against." L0005: JE G4e,#0d [FALSE] L0006 JE G00,#8f [FALSE] L0006 PRINT_RET "The tree shakes and shivers, but thankfully remains intact." L0006: JE G4e,#f3 [FALSE] L0007 PRINT_RET "Whoosh! The thorn wall grows another twenty feet high, then collapses in on itself, settling back like a beast. It is thicker and nastier than ever." L0007: JE G4e,#94 [TRUE] L0008 PRINT_RET "Nothing obvious happens." L0008: TEST_ATTR "runner-bean plant",#0a [FALSE] L0009 PRINT_RET "Nothing further happens." L0009: SET_ATTR "runner-bean plant",#0a PRINT " Warning: something extremely cliched is about to happen. When you think you have composed yourself and can stand it, press ENTER. " PRINT_CHAR '>' STOREB G47,#01,#00 CALL_1N R0159 READ G47,G48 -> Gef NEW_LINE PRINT_RET "Suddenly an enormous beanstalk sprouts out of the ground, exactly as per fairy tale, reaching up high into the sky! You yawn convulsively." Routine R0327, 0 locals PRINT_RET "You are knocked off your feet with the power of one of the High Rods, but it is too puissant for a mortal such as you are." Routine R0328, 2 locals JE G4e,#0179 [FALSE] L0001 PRINT_RET "Oh, the knight has been nearer the infinite than you could ever take him." L0001: JE G4e,G03 [FALSE] L0002 PRINT_RET "You acquire no especial sense of the infinite." L0002: JE G00,#7b [TRUE] L0003 PRINT_RET "Nothing obvious happens." L0003: JE G4e,#0d [TRUE] L0004 PRINT_RET "Nothing obvious happens." L0004: STORE L00,#7c GET_PROP L00,#15 -> L01 CALL_2N R0041 (#1e) JL L01,#09 [FALSE] L0005 PRINT_RET "You feel the air charge with excitement, and the symbol glows fiercely gold for a moment, but then the power drains away into one of the empty sockets in the arc." L0005: TEST_ATTR G4d,#19 [FALSE] L0006 PRINT_RET "Nothing happens this time." L0006: PRINT "The air charges with excitement, and the symbol glows fiercely gold, then begins to spin, faster and faster into a pearly golden light with bathes you with the flow of pure magic. " TEST_ATTR "spherical opening",#19 [TRUE] L0007 PRINT_RET "But it is still too weak! You half-hear, half-imagine the whisper of the Curses - "You are not yet ready to face us, accursed mortal!"" L0007: PRINT "Everything becomes a daze and then you find yourself... " SET_ATTR G4d,#19 CALL_1N R0329 RTRUE Routine R0329, 2 locals Action routine for: "xmaster" STORE G06,#07 GET_CHILD G03 -> L00 [TRUE] L0001 L0001: CLEAR_ATTR "daisy chain",#02 L0002: JE L00,#00 [TRUE] L0004 GET_SIBLING L00 -> L01 [TRUE] L0003 L0003: CLEAR_ATTR L00,#02 REMOVE_OBJ L00 INSERT_OBJ L00,"Infinity Symbol" STORE L00,L01 JUMP L0002 L0004: STORE G00,#ff REMOVE_OBJ G03 INSERT_OBJ G03,"Murky Cave" STORE L00,#0101 INSERT_OBJ L00,G03 CALL_1N R0198 RTRUE Routine R0330, 1 local STORE L00,#de GET_PARENT L00 -> L00 JE L00,G03 [FALSE] L0001 STORE G05,#02 PRINT_RET "You have succeeded in shaking off the Curse of the Meldrews: for the first time in sixty generations, a Meldrew has found the useless object he was doomed to seek! Unfortunately on the way to the airport you realise that you left the map on the kitchen table in all the rush, but never mind, you're on holiday now." L0001: STORE G05,#03 PRINT_RET "Yes, probably just as well to give up looking, and heaven knows there's enough packing to do, what with the rest of the family in uproar. Oh well." Routine R0331, 0 locals JE G4c,#17 [TRUE] L0001 RFALSE L0001: TEST_ATTR "Old Winery",#19 [FALSE] L0002 RFALSE L0002: PRINT " As you disturb the still air, the attic key, which was balanced on top of the demijohn, slips onto the floor and disappears into a crack in the floorboards. Your spirits sink as it does, rattling down some distance. How on earth are you going to get it back? " SET_ATTR "Old Winery",#19 RTRUE Routine R0332, 2 locals JE G4c,#13 [FALSE] L0001 STORE L00,#26 GET_PROP L00,#15 -> L01 JG L01,#03 [FALSE] L0001 PUT_PROP L00,#15,#03 L0001: RFALSE Routine R0333, 1 local JE G4c,#08 [FALSE] L0003 JE G4e,#4f [FALSE] L0003 REMOVE_OBJ G4d INSERT_OBJ G4d,"Priest's Hole" TEST_ATTR "sooty old stick",#06 [TRUE] L0001 STORE L00,#57 REMOVE_OBJ L00 INSERT_OBJ L00,"Priest's Hole" SET_ATTR "sooty old stick",#06 L0001: JE G4d,#35 [FALSE] L0002 TEST_ATTR " ",#16 [FALSE] L0002 CLEAR_ATTR " ",#06 PUT_PROP " ",#04,S1025 L0002: PRINT_RET "It rattles out of sight down the chimney." L0003: RFALSE Routine R0334, 0 locals JE G4c,#08 [FALSE] L0001 JE G4e,#0d [FALSE] L0001 REMOVE_OBJ G4d INSERT_OBJ G4d,"hanging cord" CALL_1N R0248 PRINT_RET "It plummets down into the well." L0001: RFALSE Routine R0335, 1 local JE G4c,#08 [FALSE] L0003 JE G4e,#68 [FALSE] L0003 REMOVE_OBJ G4d INSERT_OBJ G4d,"dumbwaiter" STORE L00,#67 GET_PARENT L00 -> L00 JE L00,G00 [FALSE] L0001 PRINT_RET "Put on the dumbwaiter." L0001: JE G4d,#35 [FALSE] L0002 CLEAR_ATTR " ",#16 SET_ATTR " ",#0a CALL_1N R0030 PRINT_RET "It disappears into the darkness, and there is a slight cracking noise." L0002: PRINT_RET "It disappears into the darkness." L0003: RFALSE Routine R0336, 1 local JE G4c,#04 [FALSE] L0002 JE G4d,#65,#67 [FALSE] L0002 STORE L00,#67 GET_PARENT L00 -> L00 JE L00,#65 [FALSE] L0001 STORE G4d,#67 RFALSE L0001: PRINT_RET "But you suffer from vertigo. Even the thought of the plane journey tomorrow is nerve-wracking." L0002: RFALSE Routine R0337, 1 local JE G4c,#04 [FALSE] L0002 JE G4d,#72 [FALSE] L0002 STORE L00,#67 GET_PARENT L00 -> L00 JE L00,#70 [FALSE] L0001 STORE G4d,#67 RFALSE L0001: PRINT_RET "No, don't. There's nothing there and it's nasty and dirty. Bring the dumbwaiter down instead." L0002: RFALSE Routine R0338, 0 locals JE G4c,#00 [FALSE] L0001 PRINT_RET "Far, far too dangerous to contemplate. Besides, you're a coward." L0001: RFALSE Routine R0339, 1 local JE G4c,#13 [FALSE] L0007 JE G4d,#0b [FALSE] L0006 GET_CHILD G03 -> L00 [TRUE] L0001 L0001: JE L00,#00 [TRUE] L0005 TEST_ATTR L00,#02 [FALSE] L0002 JE L00,#4a [FALSE] L0003 L0002: PRINT_RET "It's too narrow a squeeze for you at present." L0003: GET_SIBLING L00 -> L00 [TRUE] L0004 L0004: JUMP L0001 L0005: PRINT "You squeeze awkwardly down the chimney. Lucky your best clothes are all packed, because you're getting filthy. " RFALSE L0006: RFALSE L0007: JE G4c,#01,#17 [FALSE] L0008 RFALSE L0008: PRINT_RET "There's not enough room in this confined space to do anything much!" Routine R0340, 1 local JE G4c,#04 [FALSE] L0001 JE G4d,#59 [FALSE] L0001 JUMP L0005 L0001: JE G4c,#13 [FALSE] L0006 JE G4d,#0a [FALSE] L0004 GET_CHILD G03 -> L00 [TRUE] L0002 L0002: JE L00,#00 [TRUE] L0003 PRINT_RET "It's too narrow a squeeze for you at present." L0003: PRINT "You squeeze awkwardly back up the chimney." RFALSE L0004: JE G4d,#0b [FALSE] L0006 L0005: TEST_ATTR "hatch",#0a [FALSE] L0006 PRINT "You zoom rapidly down the chute, but decelerate just in time and land in a dark corner of... " RFALSE L0006: RFALSE Routine R0341, 0 locals JE G4c,#02 [FALSE] L0001 TEST_ATTR "big iron fireplace",#01 [FALSE] L0001 CLEAR_ATTR "big iron fireplace",#01 PRINT_RET "Taken. (There's a fireplace behind it, by the way.)" L0001: RFALSE Routine R0342, 0 locals JE G4c,#17 [FALSE] L0001 TEST_ATTR "Dark Room",#00 [FALSE] L0001 PRINT " The room is filled with an eerie, reddish light. You feel gloomy and can't help thinking about aviation accident statistics. " L0001: RFALSE Routine R0343, 0 locals JE G4c,#17 [FALSE] L0001 GET_PARENT "dumbwaiter" -> -(SP) JE (SP)+,#6c [TRUE] L0001 PRINT " Since the dumbwaiter isn't here, the best you can do is clamber down the shaft to the cellars. " L0001: RFALSE Routine R0344, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#0b [FALSE] L0001 GET_PARENT "dumbwaiter" -> -(SP) JE (SP)+,#6c [FALSE] L0001 PRINT_RET "Since the dumbwaiter is here, why not travel in that instead." L0001: RFALSE Routine R0345, 0 locals JE G4c,#18 [FALSE] L0002 JE G00,#38 [FALSE] L0001 TEST_ATTR "Dark Room",#00 [FALSE] L0001 CALL_2N R0040 (#00) PRINT_RET " No... wait. The eerie lamp-light is bringing out a message in invisible ink: Hamburg 1420 Ticket 7.- The seven is crossed through in continental fashion." JUMP L0002 L0001: CALL_2N R0041 (#1f) L0002: RFALSE Routine R0346, 2 locals STORE L00,#3b STORE L01,#00 GET_CHILD L00 -> L00 [TRUE] L0001 L0001: JE L00,#00 [TRUE] L0002 GET_SIBLING L00 -> L01 [TRUE] L0002 L0002: MUL L00,L01 -> -(SP) JE #00,(SP)+ [TRUE] L0003 PRINT_RET "The flash is full already." L0003: JE G4d,#47 [FALSE] L0004 JUMP L0008 L0004: JE G4d,#26 [FALSE] L0005 JUMP L0008 L0005: JE G4d,#63 [FALSE] L0006 JUMP L0008 L0006: JE G4d,#e1 [TRUE] L0007 PRINT_RET "Only batteries and timers will fit in." L0007: RFALSE L0008: JE L00,#47 [FALSE] L0009 JUMP L0012 L0009: JE L00,#26 [FALSE] L0010 JUMP L0012 L0010: JE L00,#63 [FALSE] L0011 JUMP L0012 L0011: RFALSE L0012: PRINT_RET "There is already a battery inside, and there's only room now for a timer." Routine R0347, 1 local STORE L00,#25 GET_CHILD L00 -> L00 [TRUE] L0001 L0001: JE L00,#00 [TRUE] L0002 PRINT_RET "There's a battery in already." L0002: JE G4d,#47 [FALSE] L0003 RFALSE L0003: JE G4d,#26 [FALSE] L0004 RFALSE L0004: JE G4d,#63 [FALSE] L0005 RFALSE L0005: PRINT_RET "Not surprisingly, it won't fit in the battery compartment." Routine R0348, 1 local JE G4c,#21 [FALSE] L0003 TEST_ATTR "electric torch",#00 [FALSE] L0001 PRINT "The torch goes out as you open the battery compartment. " L0001: TEST_ATTR "electric torch",#00 [TRUE] L0002 PRINT "You open the battery compartment of the torch. " L0002: CLEAR_ATTR "electric torch",#00 RTRUE L0003: JE G4c,#23 [FALSE] L0011 STORE L00,#25 GET_CHILD L00 -> L00 [TRUE] L0004 L0004: PRINT "You close the battery compartment of the torch" JE L00,#47 [FALSE] L0005 CALL_2N R0040 (#01) JUMP L0008 L0005: JE L00,#63 [FALSE] L0007 JE G06,#01 [FALSE] L0006 STORE G05,#03 PRINT_RET ", and it explodes with light, becomes hot enough to melt, falls to the floor, catches fire and burns down most of the attic... It may be some consolation that since you spend your holiday in the local hospital burns unit, you are never inconvenienced much by not finding the map." JUMP L0007 L0006: REMOVE_OBJ "electric torch" PRINT_RET ", and it explodes with light, becomes hot enough to melt, falls from your grasp and perishes away to nothing." L0007: JE L00,#26 [TRUE] L0008 PRINT_RET "." L0008: GET_PROP L00,#15 -> L00 JE L00,#00 [FALSE] L0009 PRINT_RET ", but the battery must be dead because nothing happens." L0009: SET_ATTR "electric torch",#00 JG L00,#05 [FALSE] L0010 PRINT_RET ", and it lights up brightly." L0010: PRINT_RET ", and it lights up feebly." RTRUE L0011: RFALSE Routine R0349, 0 locals JE G4c,#39 [FALSE] L0002 PRINT "Click! " TEST_ATTR "Dark Room",#00 [FALSE] L0001 CLEAR_ATTR "Dark Room",#00 REMOVE_OBJ "red lamp" PRINT_RET "The lamp goes out." L0001: SET_ATTR "Dark Room",#00 INSERT_OBJ "red lamp","Dark Room" PRINT_RET "A developing lamp comes on, emitting an eerie red light." L0002: RFALSE Routine R0350, 1 local JE G4c,#18 [TRUE] L0001 RFALSE L0001: TEST_ATTR "solid glass ball",#19 [TRUE] L0002 PRINT_RET "The ball is scratched and misted up." L0002: CALL_2N R0041 (#20) RANDOM #0c -> L00 PRINT "In the ball mists swirl, then part to show " JE L00,#01 [FALSE] L0003 PRINT_RET "a reflection of your face." L0003: JE L00,#02 [FALSE] L0004 PRINT_RET "a dizzying aerial view of Meldrew Hall gardens." L0004: JE L00,#03 [FALSE] L0005 PRINT_RET "confused pictures of a tree being planted." L0005: JE L00,#04 [FALSE] L0006 PRINT_RET "an image of a typist, home from work and wandering about her bedsit room." L0006: JE L00,#05 [FALSE] L0007 PRINT_RET "a dark picture of a museum display case." L0007: JE L00,#06 [FALSE] L0008 PRINT_RET "an Old Master painting, perhaps a Watteau, of a scene from classical mythology." L0008: JE L00,#07 [FALSE] L0009 PRINT_RET "an oddly-angled view of a Roman villa half in ruins." L0009: JE L00,#08 [FALSE] L0010 PRINT_RET "a flickery view of faces round a camp fire." L0010: JE L00,#09 [FALSE] L0011 PRINT_RET "a dark, spooky view of a crypt." L0011: JE L00,#0a [FALSE] L0012 PRINT_RET "a dreamy, enclosed view of somewhere half-familiar." L0012: JE L00,#0b [FALSE] L0013 PRINT_RET "a sketch of a great marble palace." L0013: JE L00,#0c [FALSE] L0014 PRINT_RET "a vision of English countryside." L0014: RTRUE Routine R0351, 0 locals JE G4c,#22 [FALSE] L0001 CLEAR_ATTR "coal bunker",#16 L0001: JE G4c,#42 [FALSE] L0002 SET_ATTR "coal bunker",#16 L0002: JE G4c,#21 [FALSE] L0003 SET_ATTR "coal bunker",#0a L0003: JE G4c,#23 [FALSE] L0004 CLEAR_ATTR "coal bunker",#0a L0004: RFALSE Routine R0352, 0 locals JE G4c,#22 [FALSE] L0001 CLEAR_ATTR "metal door",#16 L0001: JE G4c,#42 [FALSE] L0002 SET_ATTR "metal door",#16 L0002: JE G4c,#21 [FALSE] L0003 SET_ATTR "metal door",#0a L0003: JE G4c,#23 [FALSE] L0004 CLEAR_ATTR "metal door",#0a L0004: RFALSE Routine R0353, 2 locals JE G4c,#39 [FALSE] L0005 GET_PARENT G03 -> L00 JE L00,#67 [TRUE] L0001 PRINT_RET "You can't reach them!" L0001: CALL_2N R0040 (#05) JE G00,#65 [FALSE] L0002 STORE L01,#70 PRINT "You begin moving, and then plummet, but friction gradually slows you down and you land without too much of a thump... " L0002: JE G00,#6c [FALSE] L0003 STORE L01,#65 PRINT "You heave yourself up to the attic again... " L0003: JE G00,#70 [FALSE] L0004 STORE L01,#6c PRINT "You heave yourself half-way up, and then need to stop for a rest. " L0004: STORE L00,#67 REMOVE_OBJ L00 INSERT_OBJ L00,L01 STORE G00,L01 CALL_1N R0198 RTRUE L0005: JE G4c,#52 [FALSE] L0006 PRINT_RET "If only you didn't suffer from such dreadful vertigo..." L0006: RFALSE Routine R0354, 0 locals JE G4c,#43,#3b,#39 [FALSE] L0002 TEST_ATTR "windows",#0a [FALSE] L0001 RFALSE L0001: SET_ATTR "windows",#0a PRINT_RET "The windows suddenly give way in a shower of flakes of paint, letting fresh summer air into the room!" L0002: RFALSE Routine R0355, 0 locals JE G4c,#43 [FALSE] L0001 PRINT_RET "You become extremely violent in your attempt, but the glass resists all attacks. Whatever would it take to break the dratted thing?" L0001: JE G4c,#21 [FALSE] L0003 TEST_ATTR " ",#16 [TRUE] L0002 RFALSE L0002: PRINT_RET "You try absolutely everything. Pushing the top down, turning it, pulling it, putting it on the floor and jumping up and down on it, everything. It is resolutely adult-proof. Whatever would it take to break the dratted thing?" L0003: RFALSE Routine R0356, 0 locals JE G4c,#21 [FALSE] L0001 SET_ATTR "hinged trapdoor",#00 RFALSE L0001: JE G4c,#23 [FALSE] L0003 CLEAR_ATTR "hinged trapdoor",#00 TEST_ATTR "antique jewellery box",#01 [FALSE] L0002 CLEAR_ATTR "antique jewellery box",#01 INSERT_OBJ "antique jewellery box","Attic" PRINT_RET "You close the trapdoor, surprised to see that something shiny was obscured by it." L0002: PRINT_RET "You close the trapdoor once more. No more jewellery boxes though." L0003: RFALSE Routine R0357, 0 locals JE G4c,#21 [FALSE] L0002 TEST_ATTR "old gardeners' gloves",#02 [TRUE] L0001 PRINT_RET "Your hands slip on the screw-top of the demijohn and can't get a grip." L0001: CALL_2N R0040 (#04) L0002: JE G4c,#43 [FALSE] L0003 PRINT_RET "The demijohn is made of something like industrial-grade chemistry glass. You kick it and hurt your foot." L0003: RFALSE Routine R0358, 1 local JE G4c,#21 [FALSE] L0001 STORE L00,#31 REMOVE_OBJ L00 STORE L00,#34 INSERT_OBJ L00,G03 STORE L00,#32 INSERT_OBJ L00,G03 STORE L00,#33 INSERT_OBJ L00,G00 PRINT_RET "You tear open the parcel to find a box of chocolates and a card." L0001: RFALSE Routine R0359, 1 local JE G4c,#02 [FALSE] L0002 TEST_ATTR "gothic-looking iron key",#19 [FALSE] L0001 RFALSE L0001: CLEAR_ATTR "Sir Joshua Meldrewe",#01 STORE L00,#54 REMOVE_OBJ L00 INSERT_OBJ L00,"Sir Joshua Meldrewe" STORE L00,#55 PUT_PROP L00,#15,#05 PRINT_RET "As you reach for the key, a swirling mist condenses about it, into a ghostly head which opens its mouth and eats up the key! The rest of the ghostly body solidifies about the head and rises to swagger before you." L0002: RFALSE Routine R0360, 1 local JE G4c,#13 [FALSE] L0001 GET_PARENT "daisy chain" -> -(SP) JE (SP)+,#00 [FALSE] L0001 JE G46,#01 [FALSE] L0001 SET_ATTR "Jemima",#19 PRINT " "Oh, silly old you," says Jemima condescendingly, "You've lost your daisy chain! What colour do you want then?" " L0001: JE G4c,#17 [FALSE] L0002 TEST_ATTR "antiquated wireless",#19 [FALSE] L0002 STORE L00,#82 GET_PARENT L00 -> L00 JE L00,#7e [FALSE] L0002 PRINT " Execrable music drifts in from the conservatory. " L0002: RFALSE Routine R0361, 0 locals JE G4c,#02 [FALSE] L0002 TEST_ATTR "old gardeners' gloves",#06 [TRUE] L0002 TEST_ATTR "antiquated wireless",#19 [FALSE] L0001 RFALSE L0001: STORE G05,#03 PRINT_RET "Aunt Jemima suddenly hears you, spins round to see you filching her gloves and screeches with irritation, eventually summoning the entire family. You volunteer to shift some suitcases about just to get away from her." L0002: RFALSE Routine R0362, 1 local JE G4c,#18 [FALSE] L0014 STORE L00,#7f GET_PROP L00,#15 -> L00 PRINT "The calendar is turned to " L0001: JE L00,#00 [FALSE] L0002 PRINT "January" L0002: JE L00,#01 [FALSE] L0003 PRINT "February" L0003: JE L00,#02 [FALSE] L0004 PRINT "March" L0004: JE L00,#03 [FALSE] L0005 PRINT "April" L0005: JE L00,#04 [FALSE] L0006 PRINT "May" L0006: JE L00,#05 [FALSE] L0007 PRINT "June" L0007: JE L00,#06 [FALSE] L0008 PRINT "July" L0008: JE L00,#07 [FALSE] L0009 PRINT "August" L0009: JE L00,#08 [FALSE] L0010 PRINT "September" L0010: JE L00,#09 [FALSE] L0011 PRINT "October" L0011: JE L00,#0a [FALSE] L0012 PRINT "November" L0012: JE L00,#0b [FALSE] L0013 PRINT "December" L0013: PRINT " and a watercolour painting of some " CALL_2N R0364 (L00) PRINT_RET " daisies." L0014: JE G4c,#3d [FALSE] L0016 STORE L00,#7f GET_PROP L00,#15 -> L00 INC L00 JE L00,#0c [FALSE] L0015 STORE L00,#00 L0015: PUT_PROP "daisy calendar",#15,L00 PRINT "You turn over to " JUMP L0001 L0016: RFALSE Routine R0363, 1 local JE G4c,#18 [FALSE] L0001 STORE L00,#86 GET_PROP L00,#15 -> L00 PRINT "A delicate, pretty chain of " CALL_2N R0364 (L00) PRINT_RET " daisies." L0001: JE G4c,#09 [FALSE] L0002 STORE L00,#86 REMOVE_OBJ L00 PRINT_RET "The daisychain falls to pieces in your hands!" L0002: RFALSE Routine R0364, 1 local JE L00,#00 [FALSE] L0001 PRINT "speckled Jemima's Pride" L0001: JE L00,#01 [FALSE] L0002 PRINT "yellowish Merlyn's Hat" L0002: JE L00,#02 [FALSE] L0003 PRINT "blue-tinted bell" L0003: JE L00,#03 [FALSE] L0004 PRINT "heavy-headed Dorset Pride" L0004: JE L00,#04 [FALSE] L0005 PRINT "reddish meadow-heart" L0005: JE L00,#05 [FALSE] L0006 PRINT "wild white common" L0006: JE L00,#06 [FALSE] L0007 PRINT "green-edged hedgerow" L0007: JE L00,#07 [FALSE] L0008 PRINT "plain Russian Steppe" L0008: JE L00,#08 [FALSE] L0009 PRINT "tall-stemmed Breton" L0009: JE L00,#09 [FALSE] L0010 PRINT "orange meadow" L0010: JE L00,#0a [FALSE] L0011 PRINT "short-leaved Meldrew" L0011: JE L00,#0b [FALSE] L0012 PRINT "tiny bonsai" L0012: RTRUE Routine R0365, 0 locals JE G4c,#46 [FALSE] L0001 RFALSE L0001: TEST_ATTR G03,#19 [FALSE] L0002 CALL_2S R0036 (#c5) -> -(SP) JG #05,(SP)+ [FALSE] L0002 PRINT_RET "You seem to lack the will any more. The drug must have taken hold." L0002: RFALSE Routine R0366, 0 locals JE G4c,#02 [FALSE] L0001 PRINT_RET "It's a wrench, but you take it." L0001: RFALSE Routine R0367, 0 locals STORE G05,#03 PRINT_RET "As you pull the book away, the pipe bursts and sprays water everywhere, drenching you, rendering the book unreadable, leaking through the ceiling into the bedrooms below and causing an enormous furore. You are obliged to spend the rest of the afternoon getting a plumber at short notice." Routine R0368, 1 local JE G4c,#02 [FALSE] L0001 TEST_ATTR "steel wrench",#19 [TRUE] L0001 CALL_1N R0367 RTRUE L0001: JE G4c,#18 [FALSE] L0004 TEST_ATTR "steel wrench",#19 [TRUE] L0002 PRINT_RET "You can't read it while it's holding the pipe up." L0002: JE G00,#0c [FALSE] L0003 PRINT_RET "1920s poetry may be literarily enlightening, but not literally. It is, in fact, too dark to make out the print." L0003: PRINT "Publishers talk a lot of nonsense about readers being transported away by books, but somehow you have arrived in the... " STORE L00,#41 REMOVE_OBJ L00 INSERT_OBJ L00,G00 STORE G06,#02 STORE G00,#c9 REMOVE_OBJ G03 INSERT_OBJ G03,"Unreal City" CALL_1N R0198 RTRUE L0004: RFALSE Routine R0369, 0 locals JE G4c,#02 [FALSE] L0001 TEST_ATTR "steel wrench",#19 [TRUE] L0001 CALL_1N R0367 RTRUE L0001: JE G4c,#18 [FALSE] L0003 TEST_ATTR "steel wrench",#19 [TRUE] L0002 PRINT_RET "You can't read it while it's holding the pipe up." L0002: CALL_2N R0041 (#23) L0003: RFALSE Routine R0370, 1 local CALL_1S R0371 -> L00 RET L00 Routine R0371, 1 local JE G4c,#3d [FALSE] L0008 GET_PARENT G03 -> L00 JE L00,#67 [FALSE] L0001 PRINT_RET "If you could only reach the wheel from here..." L0001: TEST_ATTR G4d,#18 [FALSE] L0002 PRINT_RET "It won't turn. Perhaps it's broken, or perhaps only rusty." L0002: PRINT "It spins round smoothly, and the dumbwaiter is hoisted " STORE L00,#67 GET_PARENT L00 -> L00 JE L00,G00 [FALSE] L0003 PRINT "away out of sight." L0003: JE L00,G00 [TRUE] L0004 PRINT "into view. " GET_PARENT " " -> -(SP) JE (SP)+,#72 [FALSE] L0004 TEST_ATTR " ",#16 [FALSE] L0004 CLEAR_ATTR " ",#16 SET_ATTR " ",#0a CALL_1N R0030 PRINT "(Just before it reached the bottom there was a curious cracking noise. Was it really wise to leave something in the shaft?)" L0004: JE L00,#65 [FALSE] L0005 INSERT_OBJ "dumbwaiter","Cellars" L0005: JE L00,#6c [FALSE] L0006 INSERT_OBJ "dumbwaiter",G00 L0006: JE L00,#70 [FALSE] L0007 INSERT_OBJ "dumbwaiter","Storage Room" L0007: NEW_LINE RTRUE L0008: RFALSE Routine R0372, 0 locals JE G4c,#3e [FALSE] L0001 PRINT_RET "Click-clunk! The world looks precisely the same." L0001: JE G4c,#3f [FALSE] L0002 PRINT_RET "Clunk-click! Probably nothing very much has changed." L0002: RFALSE Routine R0373, 0 locals JE G4c,#02 [TRUE] L0001 RFALSE L0001: PRINT "The thought of Jemima's wrath if you actually took one of her tie-dyed sheets ("Dyeing is an art like everything else... I do it very well") is just too dreadful. " TEST_ATTR "antiquated wireless",#01 [FALSE] L0002 PRINT_RET "But there seems to be something lurking beneath." L0002: NEW_LINE RTRUE Routine R0374, 0 locals TEST_ATTR "antiquated wireless",#01 [FALSE] L0001 PRINT_RET "You've played this game before." L0001: RFALSE Routine R0375, 0 locals JE G4c,#3e [FALSE] L0001 CALL_VN R0035 (#82,#06) PRINT_RET "You push the switch on the wireless, but nothing happens." L0001: JE G4c,#3f [FALSE] L0002 TEST_ATTR "antiquated wireless",#19 [FALSE] L0002 CLEAR_ATTR "antiquated wireless",#19 PRINT_RET "Thank heaven for that." L0002: RFALSE Routine R0376, 2 locals PRINT "the picture on " CALL_2N R0290 (L00) GET_PROP L00,#13 -> L01 JE L01,#00 [FALSE] L0001 PRINT_RET "." L0001: PRINT_RET ", beautifully magnified and amazingly life-like. Why, you'd hardly know there was a wall there at all." Routine R0377, 3 locals JE L00,#00 [TRUE] L0002 GET_PROP L00,#13 -> L01 JE L01,#00 [TRUE] L0001 STORE L02,#44 PUT_PROP L02,#13,L01 CLEAR_ATTR "south wall",#01 L0001: PRINT "The south wall lights up with " CALL_2N R0376 (L00) RTRUE L0002: SET_ATTR "south wall",#01 PRINT_RET "The south wall becomes blank again." Routine R0378, 1 local JE G4c,#3e [FALSE] L0005 SET_ATTR "Souvenirs Room",#00 JE G25,#01 [FALSE] L0001 SET_ATTR "Disused Observatory",#00 L0001: STORE L00,#43 GET_CHILD L00 -> L00 [TRUE] L0002 L0002: JE L00,#00 [FALSE] L0004 PRINT "The south wall is lit up. " JE G25,#01 [FALSE] L0003 PRINT "Also, a narrow white beam of light extends backwards from the projector, pointing out up through the Observatory doorway to the north." L0003: NEW_LINE RTRUE L0004: CALL_2N R0377 (L00) RTRUE L0005: JE G4c,#3f [FALSE] L0006 CLEAR_ATTR "Souvenirs Room",#00 CLEAR_ATTR "Disused Observatory",#00 SET_ATTR "south wall",#01 L0006: RFALSE Routine R0379, 1 local JE G4c,#08 [FALSE] L0008 JE G4e,#43 [TRUE] L0001 RFALSE L0001: STORE L00,#43 GET_CHILD L00 -> L00 [TRUE] L0002 L0002: JE L00,#00 [TRUE] L0003 PRINT_RET "There's a slide in already." L0003: JE G4d,#34 [FALSE] L0004 PRINT "The postcard is just too large to fit. " CALL_1N R0313 RTRUE L0004: JE G4d,#0130 [FALSE] L0005 PRINT "The frame is too bulky. " CALL_1N R0313 RTRUE L0005: JE G4d,#0131 [FALSE] L0006 RFALSE L0006: JE G4d,#ad [FALSE] L0007 RFALSE L0007: TEST_ATTR G4d,#1b [TRUE] L0008 PRINT_RET "It won't fit. There's only room for something flat and the size of, say, a playing card." L0008: RFALSE Routine R0380, 1 local TEST_ATTR "slide projector",#18 [TRUE] L0001 RFALSE L0001: JE G4c,#17 [FALSE] L0006 STORE L00,#43 GET_CHILD L00 -> L00 [TRUE] L0002 L0002: JE L00,#00 [FALSE] L0003 PRINT " The south wall is lit up by the projector. " JUMP L0004 L0003: PRINT " The south wall displays " CALL_2N R0376 (L00) L0004: JE G25,#01 [FALSE] L0005 PRINT " A beam of white light points directly backward from the projector, through the north doorway into the Observatory. " L0005: RTRUE L0006: JE G4c,#08 [FALSE] L0008 JE G4e,#43 [TRUE] L0007 RFALSE L0007: CALL_2N R0377 (G4d) RTRUE L0008: JE G4c,#02 [FALSE] L0010 GET_PARENT G4d -> L00 JE L00,#43 [FALSE] L0010 JE G4e,#43 [TRUE] L0009 RFALSE L0009: CALL_2N R0377 (#00) RTRUE L0010: JE G4c,#03 [FALSE] L0012 JE G4e,#43 [TRUE] L0011 RFALSE L0011: CALL_2N R0377 (#00) RTRUE L0012: RFALSE Routine R0381, 0 locals TEST_ATTR "slide projector",#18 [TRUE] L0001 RFALSE L0001: JE G4c,#17 [TRUE] L0002 RFALSE L0002: JE G25,#00 [FALSE] L0003 RFALSE L0003: PRINT " A beam of white light runs into the room from the slide projector to the south, and hits the " TEST_ATTR "solid glass ball",#19 [TRUE] L0004 PRINT_RET "opaque glass ball." L0004: PRINT "glass ball, which " CALL_1N R0382 RTRUE Routine R0382, 1 local GET_CHILD "slide projector" -> L00 [TRUE] L0001 L0001: JE L00,#00 [FALSE] L0002 PRINT_RET "diffracts it into a beautiful spectrum across the ceiling." L0002: JE L00,#c2 [FALSE] L0003 PRINT_RET "throws it into a straight rod of white light across one wall." L0003: JE L00,#c0 [FALSE] L0004 PRINT_RET "spins it about wildly, as if it were a strobe light at a discotheque." L0004: JE L00,#c1 [FALSE] L0005 PRINT_RET "amplifies it into a powerful yellow searchlight which slowly turns about the room." L0005: JE L00,#016f [FALSE] L0006 PRINT_RET "throws it in a crescent against one wall." L0006: PRINT "somehow bends it so that it strikes the mural at the sign of " JE L00,#ad [FALSE] L0007 PRINT_RET "Scorpio." L0007: JE L00,#c3 [FALSE] L0008 PRINT_RET "Virgo." L0008: JE L00,#c4 [FALSE] L0009 PRINT_RET "Aquarius." L0009: JE L00,#d2 [FALSE] L0010 PRINT_RET "Cancer." L0010: JE L00,#d4 [FALSE] L0011 PRINT_RET "Pisces." L0011: JE L00,#d3 [FALSE] L0012 PRINT "Capricorn. " CALL_1N R0283 CALL_2N R0040 (#17) RTRUE L0012: JE L00,#0131 [FALSE] L0013 PRINT_RET "Leo." L0013: RTRUE Routine R0383, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#05 [FALSE] L0001 PRINT_RET "Peculiarly, the hanging curtain seems to be solid iron when you walk into it." L0001: JE G4c,#08 [FALSE] L0003 JE G4e,#0193 [FALSE] L0003 JE G4d,#0196 [FALSE] L0002 REMOVE_OBJ "green oak quarterstaff" INSERT_OBJ G03,"A Tower" STORE G00,#0190 CLEAR_ATTR "defaced door",#0a SET_ATTR "defaced door",#15 SET_ATTR "defaced door",#16 PRINT "Madame Sosostris looks up, startled. "Yes," she says, "yes... this has potential." She mutters incantations over the green wood and it begins to straighten out in a quite Freudian way. "It will be ready in two thousand years. Come back then." And she slips something into your palm as she bustles you out. " CALL_1N R0198 INSERT_OBJ "silver keepsake",G03 CALL_2N R0040 (#28) RTRUE L0002: PRINT "Madame Sosostris brushes " CALL_2N R0290 (G4d) PRINT_RET " aside impatiently." L0003: RFALSE Routine R0384, 0 locals JE G4c,#35 [FALSE] L0001 PRINT_RET "It rumbles in your hands, but nothing else happens." L0001: RFALSE Routine R0385, 0 locals JE G4c,#21 [FALSE] L0002 TEST_ATTR "grey cloak",#02 [FALSE] L0001 RFALSE L0001: PRINT_RET "It won't open, for no reason you can see." L0002: RFALSE Routine R0386, 0 locals JE G4c,#13 [FALSE] L0001 JE G4d,#05 [FALSE] L0001 PRINT_RET "Peculiarly, the hanging curtain seems to be solid iron when you walk into it." L0001: JE G4c,#02 [FALSE] L0002 JE G4d,#ce [FALSE] L0002 PRINT_RET "That's funny. For a moment there your hand seemed to go straight through the pack of cards without touching it!" L0002: JE G4c,#08 [FALSE] L0005 JE G4e,#ce [FALSE] L0005 GET_PARENT "Madame Sosostris, famous clairvoyante" -> -(SP) JE (SP)+,#cd [FALSE] L0003 PRINT_RET "Madame Sosostris won't let you." L0003: TEST_ATTR G4d,#1b [TRUE] L0004 PRINT_RET "That would look rather incongruous, surely?" L0004: REMOVE_OBJ G4d CALL_2N R0316 (G4d) PRINT "You carefully lay " CALL_2N R0290 (G4d) PRINT_RET " face down on the tarot pack." L0005: RFALSE Routine R0387, 0 locals JE G4c,#02 [FALSE] L0001 TEST_ATTR "poster",#0e [FALSE] L0001 CLEAR_ATTR "poster",#0e PRINT_RET "You hastily tear down the poster, but there's nothing interesting behind it, only painted graffiti: "Shantih Shantih Shantih"." L0001: RFALSE Routine R0388, 0 locals JE G4c,#02 [FALSE] L0001 TEST_ATTR "Shrine of the Bear",#19 [TRUE] L0001 SET_ATTR "Shrine of the Bear",#19 REMOVE_OBJ " " PRINT_RET "The Druid catches sight of your ghostly hand taking the mascot, and immediately begins her occultations, cursing you and your ill-gotten gains. But she is unable to make contact with you, and turns furiously to the tapestry, hissing "lagach" to the Bear. At once a sudden swirl of wind seems to pull her into the rough cloth, dissolving her to nothing." L0001: RFALSE Routine R0389, 0 locals JE G4c,#07 [FALSE] L0001 PRINT_RET "After a brief ecstasy of fumbling, you pull it on. It smells unpleasantly of World War II leftover cork." L0001: RFALSE Routine R0390, 0 locals TEST_ATTR "sandstone recess",#0a [FALSE] L0001 CALL_2N R0040 (#1b) JUMP L0002 L0001: JE G4c,#04 [FALSE] L0002 JE G4d,#6e [FALSE] L0002 PRINT_RET "The recess is too shallow." L0002: TEST_ATTR "gas mask",#02 [FALSE] L0003 RFALSE L0003: JE G4c,#13,#04 [FALSE] L0004 RFALSE L0004: PRINT_RET "The coal dust makes you cough and splutter, and your eyes stream. You are unable to concentrate on doing anything here." Routine R0391, 3 locals JL L00,#00 [FALSE] L0001 RFALSE L0001: JG L00,#08 [FALSE] L0002 RFALSE L0002: JL L01,#00 [FALSE] L0003 RFALSE L0003: JG L01,#06 [FALSE] L0004 RFALSE L0004: MUL #09,L01 -> -(SP) ADD (SP)+,L00 -> -(SP) LOADB G09,(SP)+ -> L02 JE L02,#30 [FALSE] L0005 STORE L02,#00 RET L02 L0005: JE L02,#31 [FALSE] L0006 STORE L02,#01 RET L02 L0006: RTRUE Routine R0392, 3 locals JL L00,#00 [FALSE] L0001 RFALSE L0001: JG L00,#08 [FALSE] L0002 RFALSE L0002: JL L01,#00 [FALSE] L0003 RFALSE L0003: JG L01,#06 [FALSE] L0004 RFALSE L0004: MUL #09,L01 -> -(SP) ADD (SP)+,L00 -> -(SP) LOADB G0e,(SP)+ -> L02 JE L02,#30 [FALSE] L0005 STORE L02,#00 RET L02 L0005: JE L02,#31 [FALSE] L0006 STORE L02,#01 RET L02 L0006: RTRUE Routine R0393, 3 locals JE L00,#00 [FALSE] L0001 JUMP L0005 L0001: JE L00,#08 [FALSE] L0002 JUMP L0005 L0002: JE L01,#00 [FALSE] L0003 JUMP L0005 L0003: JE L01,#06 [FALSE] L0004 JUMP L0005 L0004: CALL_VS R0391 (L00,L01) -> L02 RET L02 L0005: MUL #09,L01 -> -(SP) ADD (SP)+,L00 -> -(SP) LOADB G09,(SP)+ -> L02 JE L02,#30 [FALSE] L0006 STORE L02,#00 RET L02 L0006: JE L02,#31 [FALSE] L0007 STORE L02,#02 RET L02 L0007: RTRUE Routine R0394, 3 locals CALL_VS R0393 (L00,L01) -> L02 JE L02,#02 [FALSE] L0001 STORE L02,#00 L0001: RET L02 Routine R0395, 3 locals CALL_VS R0393 (L00,L01) -> L02 JE L02,#01 [FALSE] L0001 STORE L02,#00 L0001: JE L02,#02 [FALSE] L0002 STORE L02,#01 L0002: RET L02 Routine R0396, 0 locals STORE G0a,#07 STORE G0b,#05 RFALSE Routine R0397, 1 local STORE G0a,#04 STORE G0b,#06 JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#02 [TRUE] L0002 RFALSE L0002: GET_PARENT G03 -> L00 JE L00,#96 [FALSE] L0003 RFALSE L0003: PRINT_RET "You can't go that way. Now, this takes a little explaining... These days, it isn't easy to keep up a house the size of Meldrew Hall, and your family has had to strike a bargain with the National Trust that the house should be open to the public in the summer months. The maze is so popular with visitors that the grass has worn away, and it's being reseeded at the moment, so you shouldn't go treading all over it." Routine R0398, 0 locals JE G4c,#09 [TRUE] L0001 RFALSE L0001: INSERT_OBJ G4d,"Family Tree" JE G4d,#35 [FALSE] L0002 TEST_ATTR " ",#16 [FALSE] L0002 PRINT "The medicine bottle plummets to the earth below. " CLEAR_ATTR " ",#16 SET_ATTR " ",#0a CALL_1N R0030 RTRUE L0002: CALL_2N R0291 (G4d) PRINT_RET " plummets to the earth below." Routine R0399, 3 locals JE G4c,#00 [FALSE] L0001 PRINT_RET "Remember the poor grass!" L0001: JE G4c,#13 [FALSE] L0013 TEST_ATTR "garden roller",#18 [TRUE] L0002 PRINT_RET "But the garden roller is switched off, and won't drive." L0002: JE G0a,#04 [FALSE] L0003 JE G0b,#06 [FALSE] L0003 JE G4d,#03 [FALSE] L0003 RFALSE L0003: JE G0a,#00 [FALSE] L0004 JE G0b,#01 [FALSE] L0004 JE G4d,#05 [FALSE] L0004 RFALSE L0004: STORE L01,#64 STORE L02,#64 JE G4d,#02 [FALSE] L0005 STORE L01,G0a SUB G0b,#01 -> L02 L0005: JE G4d,#04 [FALSE] L0006 ADD G0a,#01 -> L01 STORE L02,G0b L0006: JE G4d,#03 [FALSE] L0007 STORE L01,G0a ADD G0b,#01 -> L02 L0007: JE G4d,#05 [FALSE] L0008 SUB G0a,#01 -> L01 STORE L02,G0b L0008: JE L01,#64 [FALSE] L0009 PRINT_RET "The maze is constructed with rectangular grid-lines of privet, so you can only proceed north, east, south or west." L0009: CALL_VS R0391 (L01,L02) -> -(SP) JE (SP)+,#01 [FALSE] L0010 PRINT_RET "The privet hedge is in the way." L0010: STORE G0a,L01 STORE G0b,L02 JE G00,#9a [FALSE] L0011 STORE G00,#99 STORE L00,#96 REMOVE_OBJ L00 INSERT_OBJ L00,"Maze" L0011: JE G0a,#07 [FALSE] L0012 JE G0b,#05 [FALSE] L0012 STORE G00,#9a STORE L00,#96 REMOVE_OBJ L00 INSERT_OBJ L00,"Patio in Maze" L0012: CALL_2N R0041 (#27) CALL_2N R0198 (#01) RTRUE L0013: RFALSE Routine R0400, 2 locals JE G4c,#13 [FALSE] L0009 JE G0a,#04 [FALSE] L0001 JE G0b,#06 [FALSE] L0001 JE G4d,#03 [FALSE] L0001 RFALSE L0001: JE G0a,#00 [FALSE] L0002 JE G0b,#01 [FALSE] L0002 JE G4d,#05 [FALSE] L0002 RFALSE L0002: STORE L00,#64 STORE L01,#64 JE G4d,#02 [FALSE] L0003 STORE L00,G0a SUB G0b,#01 -> L01 L0003: JE G4d,#04 [FALSE] L0004 ADD G0a,#01 -> L00 STORE L01,G0b L0004: JE G4d,#03 [FALSE] L0005 STORE L00,G0a ADD G0b,#01 -> L01 L0005: JE G4d,#05 [FALSE] L0006 SUB G0a,#01 -> L00 STORE L01,G0b L0006: JE L00,#64 [FALSE] L0007 PRINT_RET "The maze is constructed along rectangular grid-lines, so you can only proceed north, east, south or west." L0007: CALL_VS R0395 (L00,L01) -> -(SP) JE (SP)+,#00 [TRUE] L0008 PRINT_RET "The wooden fence is in the way." L0008: STORE G0a,L00 STORE G0b,L01 CALL_2N R0198 (#01) RTRUE L0009: RFALSE Routine R0401, 1 local JE G4c,#13 [FALSE] L0003 JE G4d,#0b [FALSE] L0001 RFALSE L0001: GET_PARENT G03 -> -(SP) JE #96,(SP)+ [TRUE] L0002 PRINT_RET "Mustn't tread on the grass now!" L0002: CALL_1S R0399 -> L00 RET L00 L0003: RFALSE Routine R0402, 5 locals DEC G0b CALL_VS R0391 (G0a,G0b) -> L01 INC G0b INC G0a CALL_VS R0391 (G0a,G0b) -> L03 DEC G0a INC G0b CALL_VS R0391 (G0a,G0b) -> L02 DEC G0b DEC G0a CALL_VS R0391 (G0a,G0b) -> L04 INC G0a ADD L02,L04 -> -(SP) ADD L03,(SP)+ -> -(SP) ADD L01,(SP)+ -> L00 JE L00,#04 [FALSE] L0001 PRINT_RET " You are hedged in on all sides." L0001: JE L00,#03 [FALSE] L0002 PRINT " You are hedged in and can only go back " L0002: JE L00,#02 [FALSE] L0003 PRINT " The corridor runs " L0003: JE L00,#01 [FALSE] L0004 PRINT " At this junction, the maze runs " L0004: JE L00,#00 [FALSE] L0005 PRINT_RET " This is a crossroads in the maze." L0005: JL L00,#04 [FALSE] L0014 JE L01,#00 [FALSE] L0006 PRINT "north" STORE L01,#01 JUMP L0009 L0006: JE L03,#00 [FALSE] L0007 PRINT "east" STORE L03,#01 JUMP L0009 L0007: JE L02,#00 [FALSE] L0008 PRINT "south" STORE L02,#01 JUMP L0009 L0008: JE L04,#00 [FALSE] L0009 PRINT "west" STORE L04,#01 JUMP L0009 L0009: INC L00 JE L00,#04 [FALSE] L0010 PRINT_RET "." L0010: JE L00,#03 [FALSE] L0011 PRINT " and " L0011: JE L00,#02 [FALSE] L0012 PRINT ", " L0012: JE L00,#01 [FALSE] L0013 PRINT ", " L0013: JUMP L0005 L0014: RTRUE Routine R0403, 5 locals CALL_VS R0391 (G0a,G0b) -> L00 JE G0a,#07 [FALSE] L0001 JE G0b,#05 [FALSE] L0001 STORE L00,#02 L0001: NEW_LINE JE L00,#01 [FALSE] L0002 PRINT "You are standing on a bed in which seeds have been recently planted. " L0002: JE L00,#00 [FALSE] L0003 PRINT "You stand on a rough patch of grass. " L0003: JE L00,#02 [FALSE] L0004 PRINT "You stand on a rough patch of grass, marked out with whitewash. " L0004: DEC G0b CALL_VS R0394 (G0a,G0b) -> L01 INC G0b INC G0a CALL_VS R0394 (G0a,G0b) -> L03 DEC G0a INC G0b CALL_VS R0394 (G0a,G0b) -> L02 DEC G0b DEC G0a CALL_VS R0394 (G0a,G0b) -> L04 INC G0a ADD L02,L04 -> -(SP) ADD L03,(SP)+ -> -(SP) ADD L01,(SP)+ -> L00 JE L00,#04 [FALSE] L0005 PRINT "There are seedbeds on all sides. " JUMP L0018 L0005: JE L00,#03 [FALSE] L0006 PRINT "There are seedbeds to " L0006: JE L00,#02 [FALSE] L0007 PRINT "There are seedbeds to the " L0007: JE L00,#01 [FALSE] L0008 PRINT "There is a seedbed to the " L0008: JE L00,#00 [FALSE] L0009 JUMP L0018 L0009: JG L00,#00 [FALSE] L0018 JE L01,#01 [FALSE] L0010 PRINT "north" STORE L01,#00 JUMP L0013 L0010: JE L03,#01 [FALSE] L0011 PRINT "east" STORE L03,#00 JUMP L0013 L0011: JE L02,#01 [FALSE] L0012 PRINT "south" STORE L02,#00 JUMP L0013 L0012: JE L04,#01 [FALSE] L0013 PRINT "west" STORE L04,#00 JUMP L0013 L0013: DEC L00 JE L00,#00 [FALSE] L0014 PRINT ". " JUMP L0018 L0014: JE L00,#01 [FALSE] L0015 PRINT " and " L0015: JE L00,#02 [FALSE] L0016 PRINT ", " L0016: JE L00,#03 [FALSE] L0017 PRINT ", " L0017: JUMP L0009 L0018: DEC G0b CALL_VS R0395 (G0a,G0b) -> L01 INC G0b INC G0a CALL_VS R0395 (G0a,G0b) -> L03 DEC G0a INC G0b CALL_VS R0395 (G0a,G0b) -> L02 DEC G0b DEC G0a CALL_VS R0395 (G0a,G0b) -> L04 INC G0a ADD L02,L04 -> -(SP) ADD L03,(SP)+ -> -(SP) ADD L01,(SP)+ -> L00 JE L00,#00 [FALSE] L0019 NEW_LINE RFALSE L0019: JE L00,#01 [FALSE] L0020 PRINT "There is a fence to the " L0020: JE L00,#02 [FALSE] L0021 PRINT "There are fences to " L0021: JE L00,#03 [FALSE] L0022 PRINT "There are fences to " L0022: JE L00,#04 [FALSE] L0023 PRINT_RET "This is a fenced-in area." L0023: JG L00,#00 [FALSE] L0032 JE L01,#01 [FALSE] L0024 PRINT "north" STORE L01,#00 JUMP L0027 L0024: JE L03,#01 [FALSE] L0025 PRINT "east" STORE L03,#00 JUMP L0027 L0025: JE L02,#01 [FALSE] L0026 PRINT "south" STORE L02,#00 JUMP L0027 L0026: JE L04,#01 [FALSE] L0027 PRINT "west" STORE L04,#00 JUMP L0027 L0027: DEC L00 JE L00,#00 [FALSE] L0028 PRINT_RET "." L0028: JE L00,#01 [FALSE] L0029 PRINT " and " L0029: JE L00,#02 [FALSE] L0030 PRINT ", " L0030: JE L00,#03 [FALSE] L0031 PRINT ", " L0031: JUMP L0023 L0032: RTRUE Routine R0404, 1 local JE G4c,#17 [FALSE] L0001 CALL_1S R0402 -> L00 RET L00 L0001: RFALSE Routine R0405, 1 local JE G4c,#17 [FALSE] L0001 CALL_1S R0403 -> L00 RET L00 L0001: JE G4c,#09 [FALSE] L0002 PRINT "You feel an alarming wrench in your insides. " STORE G05,#06 RTRUE L0002: RFALSE Routine R0406, 1 local JE G4c,#18 [FALSE] L0001 GET_PARENT G03 -> L00 JE L00,#96 [FALSE] L0001 JE G4d,#0d [FALSE] L0001 PRINT_RET "The writing's too small from here." RFALSE L0001: JE G4c,#13 [TRUE] L0002 RFALSE L0002: JE G4d,#04 [TRUE] L0003 RFALSE L0003: GET_PARENT G03 -> L00 JE L00,#96 [FALSE] L0004 RFALSE L0004: PRINT_RET "For the sake of the grass, you can't go that way." Routine R0407, 0 locals JE G4c,#02 [FALSE] L0002 TEST_ATTR "bean pole",#19 [TRUE] L0001 RFALSE L0001: CLEAR_ATTR "bean pole",#19 CALL_VN R0035 (#af,#05) L0002: RFALSE Routine R0408, 0 locals JE G4c,#02 [FALSE] L0002 TEST_ATTR "old timber spar",#19 [TRUE] L0001 RFALSE L0001: CLEAR_ATTR "old timber spar",#19 CALL_VN R0035 (#af,#05) L0002: RFALSE Routine R0409, 0 locals STORE G05,#05 RFALSE Routine R0410, 0 locals STORE G0a,#00 STORE G0b,#01 RFALSE Routine R0411, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#04 [TRUE] L0002 RFALSE L0002: TEST_ATTR "herd of goats",#19 [FALSE] L0003 PRINT "The goats obediently part to allow you to get by. " RFALSE L0003: PRINT_RET "The goats hiss and butt against you, not letting you through." Routine R0412, 0 locals CALL_2N R0041 (#04) RFALSE Routine R0413, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#03 [TRUE] L0002 RFALSE L0002: PRINT "Zeus, who is after all the chief of all the gods, appears and hurls a thunderbolt down just before you begin to cross into the Temple. " TEST_ATTR "big electrician's switch",#18 [FALSE] L0003 STORE G05,#01 PRINT_RET "With the kind of calculation only a god could make, Zeus has worked out exactly what would happen and aimed the thunderbolt so that it hits you straight in the back despite your attempt to weave about. Pretty impressive prediction, is your last thought." L0003: TEST_ATTR " ",#19 [FALSE] L0004 PRINT "Astonishingly, you beat the luck of the gods and slip into the temple just clear of the thunderbolt. "Damn, missed!" says a sepulchral voice from without. " RFALSE L0004: STORE G05,#01 PRINT_RET "With the luck of the gods, Zeus' thunderbolt strikes you just about exactly in the back, despite your attempts to weave about." Routine R0414, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#02 [TRUE] L0002 RFALSE L0002: PRINT ""I'll get you this time, worm!" says Zeus, and hurls another thunderbolt, but now he's angry his aim is right off. " RFALSE Routine R0415, 0 locals TEST_ATTR "Ekmek Special",#06 [FALSE] L0001 RFALSE L0001: JE G4c,#02 [TRUE] L0002 RFALSE L0002: TEST_ATTR "copper coin",#19 [FALSE] L0003 RFALSE L0003: PRINT_RET "You can't understand a word of what the bartender says, but the drift is clear enough. Not until you pay for it." Routine R0416, 0 locals JE G4c,#18 [TRUE] L0001 RFALSE L0001: PRINT "Avert your eyes. She is naked" TEST_ATTR "amber hairband",#0f [FALSE] L0002 PRINT " (unless you count a hairband)" L0002: PRINT_RET ", as used to be fashionable for human sacrifices: the victim left overnight without food or shelter until the dawn. It has to be said that she doesn't look all that keen to be rescued." Routine R0417, 0 locals JE G4c,#17 [FALSE] L0002 TEST_ATTR "Cups and Glasses",#11 [TRUE] L0001 RFALSE L0001: TEST_ATTR "complicated-looking bomb",#01 [FALSE] L0002 PRINT_RET " Over in one corner, you can see a little square window, behind which must be the store of cups and glasses. Remembering this, you are distracted and unable to enjoy the entertainment. Even the table is annoying. It must have one leg shorter than the rest, or something, because it rattles now and then." L0002: RFALSE Routine R0418, 0 locals JE G4c,#02 [FALSE] L0001 STORE G05,#08 PRINT_RET "Suddenly, someone catches sight of you with the bomb and screams. One thing leads to another, and, well, you know how it is with foreign legal systems. At least the bomb gets defused, and twenty-five years isn't all that long." L0001: RTRUE Routine R0419, 2 locals JE G4c,#18 [TRUE] L0001 RFALSE L0001: PRINT "The timer seems quite simple to set. " STORE L01,#e1 GET_PROP L01,#15 -> L00 JE G11,#01 [FALSE] L0002 PRINT "The clock is running, and currently at " PRINT_NUM L00 PRINT_RET " minutes." L0002: JE L00,#00 [TRUE] L0003 CALL_1N R0420 RTRUE L0003: PRINT_RET "At present the clock is reset to 0." Routine R0420, 3 locals PRINT "The clock is ticking downwards, and has only " STORE L01,#e1 GET_PROP L01,#15 -> L00 PRINT_NUM L00 JE L00,#01 [FALSE] L0001 PRINT " minute " L0001: JE L00,#01 [TRUE] L0002 PRINT " minutes " L0002: PRINT "to go before it hits the red zone. " JE L00,#05 [FALSE] L0003 CALL_2N R0041 (#0a) L0003: STORE L00,#e0 GET_PROP L00,#15 -> L01 JE L01,#00 [FALSE] L0004 PRINT_RET "All four wires are plugged into the timer." L0004: JE L01,#01 [FALSE] L0005 PRINT "Only the " L0005: JE L01,#02 [FALSE] L0006 PRINT "The " L0006: JE L01,#03 [FALSE] L0007 PRINT "The " L0007: JE L01,#04 [FALSE] L0008 PRINT_RET "None of the wires are plugged in." L0008: STORE L02,L01 STORE L00,#e3 TEST_ATTR L00,#19 [FALSE] L0009 PRINT_OBJ L00 DEC L02 CALL_2N R0421 (L02) L0009: STORE L00,#e2 TEST_ATTR L00,#19 [FALSE] L0010 PRINT_OBJ L00 DEC L02 CALL_2N R0421 (L02) L0010: STORE L00,#e4 TEST_ATTR L00,#19 [FALSE] L0011 PRINT_OBJ L00 DEC L02 CALL_2N R0421 (L02) L0011: STORE L00,#e5 TEST_ATTR L00,#19 [FALSE] L0012 PRINT_OBJ L00 DEC L02 CALL_2N R0421 (L02) L0012: JE L01,#01 [FALSE] L0013 PRINT_RET " is unplugged." L0013: PRINT_RET " are unplugged." Routine R0421, 1 local JE L00,#01 [FALSE] L0001 PRINT " and " RFALSE L0001: JE L00,#00 [FALSE] L0002 RFALSE L0002: PRINT ", " RTRUE Routine R0422, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#0b [TRUE] L0002 RFALSE L0002: CALL_1N R0423 RFALSE Routine R0423, 0 locals GET_PARENT "photographer's flash" -> -(SP) JE (SP)+,#fd [FALSE] L0001 PRINT "(Out of the corner of your eye, you notice the flash fall out of the device.) " INSERT_OBJ "photographer's flash","Lighthouse" L0001: RTRUE Routine R0424, 0 locals JE G4c,#08 [FALSE] L0001 JE G4e,#77 [FALSE] L0001 PRINT_RET "Nothing is to be gained by this." L0001: JE G4c,#03 [FALSE] L0002 JE G4e,#77 [FALSE] L0002 PRINT_RET "There's nothing within reach inside." L0002: RFALSE Routine R0425, 2 locals JE G4c,#17 [FALSE] L0010 PRINT " Around the edge of the disc is a circular arc, surrounding the lemniscus, which passes through nine equally spaced sockets or cylindrical wells." STORE L00,#7c GET_PROP L00,#15 -> L01 JE L01,#00 [FALSE] L0001 NEW_LINE RFALSE L0001: JE L01,#01 [FALSE] L0002 PRINT_RET " One socket contains a rod, fixed in place." L0002: JE L01,#02 [FALSE] L0003 PRINT_RET " Two of the sockets contain rods, fixed in place." L0003: JE L01,#03 [FALSE] L0004 PRINT_RET " Three of the sockets contain rods, fixed in place." L0004: JE L01,#04 [FALSE] L0005 PRINT_RET " Four of the sockets contain rods, fixed in place." L0005: JE L01,#05 [FALSE] L0006 PRINT_RET " Five of the sockets contain rods, fixed in place." L0006: JE L01,#06 [FALSE] L0007 PRINT_RET " Six of the sockets contain rods, fixed in place." L0007: JE L01,#07 [FALSE] L0008 PRINT_RET " Seven sockets contain rods, fixed in place." L0008: JE L01,#08 [FALSE] L0009 PRINT_RET " Only one socket is left empty." L0009: JE L01,#09 [FALSE] L0010 PRINT_RET " All nine sockets are occupied by rods." L0010: RFALSE Routine R0426, 1 local JE G4c,#08 [FALSE] L0010 JE G4e,#7d [FALSE] L0003 JE G4d,#a7 [TRUE] L0001 PRINT_RET "That doesn't seem to fit properly." L0001: TEST_ATTR "glowing golden orb",#19 [TRUE] L0002 PRINT_RET "The orb fits perfectly, but nothing happens: it is as if the socket is dead, and the orb rolls out again into your hands. Curious." L0002: INSERT_OBJ "spherical opening","glowing golden orb" REMOVE_OBJ "glowing golden orb" SET_ATTR "spherical opening",#19 PUT_PROP "Infinity Symbol",#02,S1026 PRINT_RET "The orb fits perfectly, and the socket comes alive with golden light, which soaks out into the fabric of the cave until the whole place is shining bright." L0003: JE G4e,#7c [TRUE] L0004 RFALSE L0004: GET_PROP G4e,#15 -> L00 TEST_ATTR G4d,#12 [TRUE] L0005 PRINT_RET "That won't fit in a socket." L0005: JE G4d,#12 [FALSE] L0006 PRINT_RET "The Rod of Infinity is just slightly too large to fit." L0006: JE L00,#09 [FALSE] L0007 PRINT_RET "The sockets are all full." L0007: REMOVE_OBJ G4d INSERT_OBJ G4d,"circular arc" SET_ATTR G4d,#0f INC L00 PUT_PROP "circular arc",#15,L00 PRINT "It fits perfectly in one of the arc sockets. " GET_PARENT "spherical opening" -> -(SP) JE (SP)+,#00 [FALSE] L0008 INSERT_OBJ "spherical opening","Infinity Symbol" PRINT " As the rod goes home, a spherical opening a few inches across appears in one wall. " L0008: JE L00,#09 [FALSE] L0009 CALL_2N R0040 (#13) L0009: RTRUE L0010: RFALSE Routine R0427, 0 locals JE G4c,#13 [FALSE] L0002 JE G4d,#0a [TRUE] L0001 RFALSE L0001: PRINT_RET "You climb the ladder and are about to jump onto the roof when you catch sight of a man swaddled in animal furs, spreadeagled over the tiles, looking down into the central courtyard of the villa. He has a nasty-looking sword and since he hasn't seen you, you quietly shin back down the ladder again." L0002: RFALSE Routine R0428, 1 local JE G4c,#09 [FALSE] L0001 STORE L00,#06 RANDOM L00 -> L00 PRINT "Alea iacta est. It comes up " PRINT_NUM L00 PRINT_RET "." L0001: RFALSE Routine R0429, 0 locals JE G4c,#13 [FALSE] L0001 RFALSE L0001: PRINT_RET "There's not enough room in this confined space to do anything much!" Routine R0430, 0 locals JE G4c,#04 [FALSE] L0001 JE G4d,#0113 [FALSE] L0001 JUMP L0003 L0001: JE G4c,#13 [TRUE] L0002 RFALSE L0002: JE G4d,#0b [TRUE] L0003 RFALSE L0003: TEST_ATTR "kitchen well",#0a [TRUE] L0004 RFALSE L0004: TEST_ATTR "kitchen well",#19 [FALSE] L0005 PRINT "Aware of the dangers, you very carefully lower yourself... " CALL_2N R0040 (#14) RFALSE L0005: STORE G05,#01 PRINT_RET "Having no reason to suppose the well is very deep, you cheerfully lower yourself in. This turns out to be something of a misjudgement and you soon lose your grip and fall, endlessly banging against the walls until finally..." Routine R0431, 0 locals JE G4c,#08 [FALSE] L0003 JE G4e,#0113 [FALSE] L0003 REMOVE_OBJ G4d TEST_ATTR G4d,#00 [FALSE] L0001 SET_ATTR "kitchen well",#19 PRINT_RET "It plummets out of sight, until even the light vanishes in the distance. This must be an extremely deep well." L0001: JE G4d,#0101 [TRUE] L0002 CALL_VN R0035 (#0113,#03) L0002: PRINT_RET "It drops into the well-shaft." L0003: RFALSE Routine R0432, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#03 [FALSE] L0002 JUMP L0005 L0002: JE G4d,#09 [FALSE] L0003 JUMP L0005 L0003: JE G4d,#08 [FALSE] L0004 JUMP L0005 L0004: RFALSE L0005: PRINT "You walk out into the courtyard and are immediately set upon by guards, who drag you away. " CALL_1N R0438 RTRUE Routine R0433, 0 locals JE G1b,#00 [FALSE] L0001 STORE G1b,#01 L0001: RFALSE Routine R0434, 0 locals JE G4c,#07 [FALSE] L0001 PRINT_RET "You tuck the daisy behind your ear, almost out of sight." L0001: JE G4c,#02 [FALSE] L0002 TEST_ATTR "yellow daisy",#19 [TRUE] L0002 SET_ATTR "yellow daisy",#19 PRINT_RET "Aided by the swinging of the rope, you pick the daisy." L0002: RFALSE Routine R0435, 0 locals JE G4c,#02 [TRUE] L0001 RFALSE L0001: TEST_ATTR "yellow daisy",#06 [FALSE] L0002 RFALSE L0002: TEST_ATTR "hemp rope",#19 [FALSE] L0003 RFALSE L0003: PRINT_RET "You stretch out your hand, but cannot quite reach the daisy, such is the size of the overhang." Routine R0436, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#0b [TRUE] L0002 RFALSE L0002: PRINT "You clamber down the rope, straight into a patrol of guards who capture you! " CALL_1N R0438 RTRUE Routine R0437, 0 locals JE G4c,#09 [FALSE] L0001 REMOVE_OBJ G4d CALL_2N R0291 (G4d) PRINT_RET " tumbles end over end into the valley below." L0001: RFALSE Routine R0438, 1 local JL G1b,#08 [FALSE] L0001 STORE G05,#01 PRINT " The guardsmen grab your head by the chin and examine you, but take you for a plain thief and immediately put you to the sword. A pity they did not realise your importance, but then they are only guards, and anyway if they had they would probably just have done you in more unpleasantly. " RTRUE L0001: PRINT " Suddenly you are thrust before a druidical figure. He seems to recognise you, and is troubled. Perhaps because of this, your life is saved and you are taken away into custody, down in the valley among the army encampments. " CALL_VN R0035 (#0118,#04) GET_CHILD G03 -> L00 [TRUE] L0002 L0002: JE L00,#00 [TRUE] L0005 TEST_ATTR L00,#02 [TRUE] L0003 REMOVE_OBJ L00 L0003: GET_SIBLING L00 -> L00 [TRUE] L0004 L0004: JUMP L0002 L0005: STORE G1b,#00 STORE G00,#0117 REMOVE_OBJ G03 INSERT_OBJ G03,"Rough Tent" CALL_1N R0198 RTRUE Routine R0439, 0 locals JE G4c,#1a [TRUE] L0001 RFALSE L0001: PRINT_RET "Not only are the guards better at searching suspects than you, they also did so first." Routine R0440, 0 locals JE G4c,#43 [FALSE] L0001 PRINT_RET "It won't break." L0001: JE G4c,#3b,#39 [FALSE] L0002 PRINT_RET "Its base is in the earth." L0002: RFALSE Routine R0441, 0 locals JE G4c,#02 [TRUE] L0001 RFALSE L0001: TEST_ATTR "tent pole",#19 [TRUE] L0002 SET_ATTR "tent pole",#19 PRINT "As you uproot the tent-pole, the whole tent collapses ignominiously, the animal hides falling about your head. The hides are heavy and weigh you down, but you just manage to crawl out... " CALL_VN R0035 (#011a,#0a) STORE G00,#011a REMOVE_OBJ G03 INSERT_OBJ G03,"Encampment" CALL_1N R0198 RTRUE L0002: RFALSE Routine R0442, 0 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: JE G4d,#04 [TRUE] L0002 RFALSE L0002: TEST_ATTR "leather sandals",#02 [FALSE] L0003 PRINT "You cross the hot coals nimbly in your sandals. " RFALSE L0003: PRINT_RET "Walk across those hot coals! You must be joking." Routine R0443, 2 locals JE G4c,#17 [TRUE] L0001 RFALSE L0001: STORE G00,#28 REMOVE_OBJ G03 INSERT_OBJ G03,"camp bed" STORE G06,#01 STORE L00,#04 GET_CHILD L00 -> L00 [TRUE] L0002 L0002: JE L00,#00 [TRUE] L0004 GET_SIBLING L00 -> L01 [TRUE] L0003 L0003: REMOVE_OBJ L00 INSERT_OBJ L00,G03 STORE L00,L01 JUMP L0002 L0004: STORE L00,#8a GET_PARENT L00 -> L00 JE L00,G03 [FALSE] L0005 CALL_VN R0035 (#8a,#0f) CALL_2N R0040 (#15) L0005: PRINT_RET " You awaken, shivering with dread." Routine R0444, 3 locals JE G4c,#13 [FALSE] L0003 JE G4d,#02,#03 [FALSE] L0001 PRINT " Walking through the mirror is a wrench, but leaves you somewhere... almost exactly the same... " CALL_2N R0040 (#0f) L0001: JE G4d,#02 [FALSE] L0002 CALL_1N R0252 RFALSE L0002: JE G4d,#03 [FALSE] L0003 CALL_1N R0251 RFALSE L0003: JE G4c,#17 [FALSE] L0014 TEST_ATTR "Contraption ",#19 [FALSE] L0004 PRINT " The lower basket contains a cannonball, and the upper is empty. " RFALSE L0004: GET_CHILD "hanging cord" -> L00 [TRUE] L0005 L0005: JE L00,#00 [TRUE] L0014 PRINT " The lower basket contains " STORE Gef,#00 GET_CHILD "hanging cord" -> -(SP) [FALSE] L0007 L0006: INC Gef GET_SIBLING (SP)+ -> -(SP) [TRUE] L0006 L0007: ADD (SP)+,Gef -> -(SP) STORE L01,(SP)+ GET_CHILD "hanging cord" -> L00 [TRUE] L0008 L0008: STORE L02,#00 L0009: JE L00,#00 [TRUE] L0013 CALL_2N R0289 (L00) SUB L01,#02 -> -(SP) JE L02,(SP)+ [FALSE] L0010 PRINT " and " L0010: SUB L01,#02 -> -(SP) JL L02,(SP)+ [FALSE] L0011 PRINT ", " L0011: GET_SIBLING L00 -> L00 [TRUE] L0012 L0012: INC L02 JUMP L0009 L0013: PRINT ". " L0014: RFALSE Routine R0445, 2 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: CALL_2N R0198 (#01) NEW_LINE TEST_ATTR "angel",#19 [FALSE] L0002 PRINT_RET ""I presume you have decided what to ask," says the angel." L0002: STORE L00,#0122 GET_PROP L00,#15 -> L01 JG L01,#00 [FALSE] L0003 DEC L01 PUT_PROP L00,#15,L01 JG L01,#00 [FALSE] L0003 SET_ATTR "angel",#19 L0003: JE L01,#00 [FALSE] L0004 PRINT_RET ""I'm afraid I can be of no further use to you! See you in another life," says the angel with a memorable smile." L0004: JE L01,#01 [FALSE] L0005 PRINT_RET ""You have one remaining question," says the angel with a memorable smile." L0005: JE L01,#02 [FALSE] L0006 PRINT_RET ""A whole two questions left," says the angel with a memorable smile." L0006: PRINT_RET ""Good day," says the angel with a memorable smile. "As a reward for your act of faith, may I welcome you to our little information service. We try to be as helpful as possible to explorers who are lost, or can't think how to solve their problems. Is there anything, pray, which you would like a hint about, or which you'd like to show me? You are permitted three hints in all, in accordance with standard practice."" Routine R0446, 2 locals JE G4c,#13 [TRUE] L0001 RFALSE L0001: CALL_2N R0198 (#01) NEW_LINE TEST_ATTR "demon",#19 [FALSE] L0002 PRINT_RET ""Thought what you wanted to ask yet?" says the demon." L0002: STORE L00,#0120 GET_PROP L00,#15 -> L01 JG L01,#00 [FALSE] L0003 DEC L01 PUT_PROP L00,#15,L01 JG L01,#00 [FALSE] L0003 SET_ATTR "demon",#19 L0003: JE L01,#00 [FALSE] L0004 PRINT_RET ""Get out, you little pipsqueak! I'll be seeing you... much later..." says the demon with a memorable smile." L0004: JE L01,#01 [FALSE] L0005 PRINT_RET ""All right, toad, you have one, just one, chance left," says the demon with a memorable smile." L0005: JE L01,#02 [FALSE] L0006 PRINT_RET ""Now then, two chances remaining," says the demon with a memorable smile." L0006: PRINT_RET ""Good afternoon," says the demon with a memorable smile. "As a reward for your naked greed, may I welcome you to our little information service. We try to be as helpful as possible to explorers who are lost, or can't think how to solve their problems, you know the kind of thing. So just tell me what you want to know, or show me something to look at. You get the usual three hints."" Routine R0447, 1 local JE L00,#01 [FALSE] L0001 PRINT_RET ""In the premonition, it is vital to get hold of the mascot for later use."" L0001: JE L00,#02 [FALSE] L0002 PRINT_RET ""It's no use poking about on the attic floor for fresh torch batteries, because there aren't any."" L0002: JE L00,#03 [FALSE] L0003 PRINT_RET ""Your Aunt Jemima is not the kind of woman to be distracted by music or frivolous presents, mark my words."" L0003: JE L00,#04 [FALSE] L0004 PRINT_RET ""Novels are, of course, invariably written by people using their real names, not disguised in any way."" L0004: JE L00,#05 [FALSE] L0005 PRINT_RET ""The thing about daisies is, they are the same all year round, not changing with the calendar."" L0005: JE L00,#06 [FALSE] L0006 PRINT_RET ""Modern medicine bottles can even withstand falls from a great height. I should try heat if I were you."" L0006: JE L00,#07 [FALSE] L0007 PRINT_RET ""You can easily get a grip on the demijohn with your bare hands."" L0007: JE L00,#08 [FALSE] L0008 PRINT_RET ""The answer's the same, whichever bottle you meant. That counts as your hint, I'm afraid. Not very fair, but then I am a demon."" L0008: JE L00,#09 [FALSE] L0009 PRINT_RET "The demon acknowledges the question, but cannot bring himself to speak of Heaven." L0009: JE L00,#0a [FALSE] L0010 PRINT_RET ""Hell? Oh this isn't your eternal damnation, it's mine, having to answer all these wretched questions. No, Hell itself is a marvellous place, and it has an excellent health club too. Look forward to seeing you there."" L0010: JE L00,#0b [FALSE] L0011 PRINT_RET ""Don't worry, there's nothing written there. No need to look at the problem in a fresh light."" L0011: JE L00,#0c [FALSE] L0012 PRINT_RET ""History never repeats itself, so it's pointless looking him up in the book."" L0012: JE L00,#0d [FALSE] L0013 PRINT_RET ""The really interesting stuff is at the very start of his working life."" L0013: JE L00,#0e [FALSE] L0014 PRINT_RET ""Forget it, there's no way to return from the museum, and Doktor Stein's medicine has no antidote."" L0014: JE L00,#0f [FALSE] L0015 PRINT_RET ""Merlyn doesn't really come into this. Try working on something else."" L0015: JE L00,#10 [FALSE] L0016 PRINT_RET ""Literally, Merlyn's actual hat. Green pointy felt, I wouldn't wonder."" L0016: JE L00,#11 [FALSE] L0017 PRINT_RET ""The answer's the same, whichever book you meant. That counts as your hint, I'm afraid. Not very fair, but then I am a demon."" L0017: JE L00,#12 [FALSE] L0018 PRINT_RET ""Ebenezer? He's absolutely central to this. Concentrate on him, definitely."" L0018: JE L00,#13 [FALSE] L0019 PRINT_RET ""Trouble with holiday snaps is, once somebody gets the old slide projector going, a boring time is on the cards for all."" L0019: JE L00,#14 [FALSE] L0020 PRINT_RET ""You'll need to be wide awake and alert to work out what to do with them. Finding them is easy - just remember to keep an eye out for short, fat things."" L0020: JE L00,#15 [FALSE] L0021 PRINT_RET ""Clairvoyantes are expert at detecting stacked decks, so it's no good cheating."" L0021: JE L00,#16 [FALSE] L0022 PRINT_RET ""Phlebas runs a very badly-advertised service, I'm afraid. I've got no time for him."" L0022: JE L00,#17 [FALSE] L0023 PRINT_RET ""Once the mouse is in the hole, forget it, it couldn't hear you even if you talked to the hole instead. But there is an alternative method."" L0023: JE L00,#18 [FALSE] L0024 PRINT_RET ""Your fault for letting the key get into the foundations - nothing can get in there to retrieve it."" L0024: JE L00,#19 [FALSE] L0025 PRINT_RET ""Marvellous, marvellous contraption. Starts the moment you switch it on, and then nothing but solid gold classics all the way. You can really concentrate when that's playing."" L0025: JE L00,#1a [FALSE] L0026 PRINT_RET ""What, the blocked-up old fireplace that doesn't lead anywhere? You need to be carrying plenty of equipment to get down it - don't worry if it's dark at the bottom, after all there's nothing you can do about that."" L0026: JE L00,#1b [FALSE] L0027 PRINT_RET ""The sandstone recess is probably impassible. Better try only when you're wide awake."" L0027: JE L00,#1c [FALSE] L0028 PRINT_RET ""Austin's a perfect devil, isn't he? She, I should say. Good for nothing except getting in the way, of course. Walks into walls just when you don't want, but at least Jemima calms her down."" L0028: JE L00,#1d [FALSE] L0029 PRINT_RET ""Smoke detectors like yours are specially rigged not to be triggered by accidental shafts of light."" L0029: JE L00,#1e [FALSE] L0030 PRINT_RET ""Of course the ship is far too large and ungainly ever to fit in the bottle."" L0030: JE L00,#1f [FALSE] L0031 PRINT_RET ""Cold comfort."" L0031: JE L00,#20 [FALSE] L0032 PRINT_RET ""A good blanket might be a plain, colourless sort of covering with no emblem to it."" L0032: JE L00,#21 [FALSE] L0033 PRINT_RET ""The thing about the revolving door is, you can only revolve it when you're already standing inside."" L0033: JE L00,#22 [FALSE] L0034 PRINT_RET ""Unbreakable glass."" L0034: JE L00,#23 [FALSE] L0035 PRINT_RET ""A vital clue, and useful in its own right."" L0035: JE L00,#24 [FALSE] L0036 PRINT_RET ""The greatest computer game of all time. I'm proud to be a part of it."" L0036: JE L00,#25 [FALSE] L0037 PRINT_RET "The demon blushes. "Wasn't my fault! My partner made a mess of it."" L0037: RTRUE Routine R0448, 1 local JE L00,#02 [FALSE] L0001 PRINT_RET "The angel acknowledges the question, but cannot bring herself to speak of Hell." L0001: JE L00,#01 [FALSE] L0002 PRINT_RET ""Heaven? Oh this isn't your eternal salvation, it's mine, able to serve by answering all these delightful questions. No, Heaven itself is a marvellous place, and it has an excellent health club too. Look forward to seeing you there."" L0002: JE L00,#03 [FALSE] L0003 PRINT_RET ""The rods definitely fit into all this somewhere."" L0003: JE L00,#04 [FALSE] L0004 PRINT_RET ""If only you could have been there when the maze was being laid out!"" L0004: JE L00,#05 [FALSE] L0005 PRINT_RET ""The master game is like a point at infinity to we mortals," the angel says wistfully." L0005: JE L00,#06 [FALSE] L0006 PRINT_RET ""All a matter of fitting the rods in somewhere."" L0006: JE L00,#07 [FALSE] L0007 PRINT_RET ""How she must long to let her hair down now, instead of being chained to that rock," the angel says sorrowfully. "But in deference to her wishes, I cannot help you rescue her."" L0007: JE L00,#08 [FALSE] L0008 PRINT_RET ""Amazing fortune you must have in finding it, I can tell."" L0008: JE L00,#09 [FALSE] L0009 PRINT_RET ""Ah yes, we must all lament for human folly," says the angel, misunderstanding completely." L0009: JE L00,#0a [FALSE] L0010 PRINT_RET ""Zeus wasn't a true god, of course," the angel predictably insists, "just a manifestation of the laws of physics to an Ancient Greek, a kind of symbol for the way the universe fundamentally worked."" L0010: JE L00,#0b [FALSE] L0011 PRINT_RET "The angel maintains a tight-lipped silence." L0011: JE L00,#0c [FALSE] L0012 PRINT_RET ""That's too dangerous a rod to actually use, of course, and the Church no longer approves of martyrs."" L0012: JE L00,#0d [FALSE] L0013 PRINT_RET ""Is there really such a thing as luck, or free will? It's a theological grey area," says the angel with fine casuistry." L0013: JE L00,#0e [FALSE] L0014 PRINT_RET ""Certainly a thorny problem, that."" L0014: JE L00,#0f [FALSE] L0015 PRINT_RET ""Old Evans would never give you his mascot of his own free will."" L0015: JE L00,#10 [FALSE] L0016 PRINT_RET ""One has to reflect on ugliness like that."" L0016: JE L00,#11 [FALSE] L0017 PRINT_RET ""It's quite hypnotically fascinating, don't you think?"" L0017: JE L00,#12 [FALSE] L0018 PRINT_RET ""Squirrels are very fond of nuts, but you can't trust them an inch."" L0018: JE L00,#13 [FALSE] L0019 PRINT_RET ""Just think what that would do to a decent lawn! Oh, it makes me go cold all over."" L0019: JE L00,#14 [FALSE] L0020 PRINT_RET ""Whatever is a croquet lawn for, if not to play croquet? Although, now I think about it, there is something else down there."" L0020: JE L00,#16 [FALSE] L0021 PRINT_RET ""Show me!"" L0021: JE L00,#17 [FALSE] L0022 PRINT_RET ""Ah yes, a code word understood by certain of Alexander the Great's slaves. But you'd have to be in the right place at the right time."" L0022: JE L00,#18 [FALSE] L0023 PRINT_RET ""The mouth is the key, or rather the lock."" L0023: JE L00,#19 [FALSE] L0024 PRINT_RET ""Do be careful. The sphinxes are only made of stone, but they could easily give you nightmares."" L0024: JE L00,#1a [FALSE] L0025 PRINT_RET ""Jolly comfortable, some of those funeral couches."" L0025: JE L00,#1b [FALSE] L0026 PRINT_RET ""A one-way ride, but that's life."" L0026: JE L00,#1c [FALSE] L0027 PRINT_RET ""Once fired with life, the knight will only be yours to command when he has discharged his chivalric duty."" L0027: JE L00,#1d [FALSE] L0028 PRINT_RET ""Some of those ancient knights were rather loose, but perhaps that's better than being screwed up."" L0028: JE L00,#1e [FALSE] L0029 PRINT_RET ""The Great Library isn't for passing hooligans, you know," says the angel reprovingly. "Besides, the guards understand their duty by the Cat God far too well to let you through."" L0029: JE L00,#1f [FALSE] L0030 PRINT_RET ""They're always at each other's throats. I shudder to think what might happen if a real fight broke out."" L0030: JE L00,#20 [FALSE] L0031 PRINT_RET ""Oh, find yourself a costume, join the party!"" L0031: JE L00,#21 [FALSE] L0032 PRINT_RET ""The green wood may one day make a really good staff, but it could take ages. Better leave it with someone for safe keeping."" L0032: JE L00,#22 [FALSE] L0033 PRINT_RET ""Some choices are inevitable and permanent, at least in this world."" L0033: JE L00,#23 [FALSE] L0034 PRINT_RET ""Do be careful of the trap, won't you! You might want to take precautions with the opening."" L0034: JE L00,#24 [FALSE] L0035 PRINT_RET ""Let me see."" L0035: JE L00,#25 [FALSE] L0036 PRINT_RET ""You appreciate, in my position I can't really comment on graven images of pagan gods. Better try some dictionary or other."" L0036: JE L00,#26 [FALSE] L0037 PRINT_RET ""That woman will rabbit on, once you set her off. But only if you sacrifice something. Will you be joining us next Harvest Sunday, by the way?"" L0037: JE L00,#27 [FALSE] L0038 PRINT_RET ""Ooh, it does make me shiver, thinking of the way they used to pour oil over themselves, anointing they called it."" L0038: JE L00,#28 [FALSE] L0039 PRINT_RET ""Shabby old gossip, Homer, always reminds me of Peter Falk. Anyway, just give him his answers. Shouldn't be too hard, with what you're wearing and carrying."" L0039: JE L00,#29 [FALSE] L0040 PRINT_RET ""Going in round the front just scares the birds away, I fear."" L0040: JE L00,#2a [FALSE] L0041 PRINT_RET ""Find out what you can about your ancestor who built it - his tomb isn't far away. Then reflect as best you can on the problem."" L0041: JE L00,#2b [FALSE] L0042 PRINT_RET ""Well, if you know what the odour is, that's the main thing."" L0042: RTRUE Routine R0449, 2 locals STORE L01,#00 JE L00,"premoniti","dream" [FALSE] L0001 STORE L01,#01 L0001: JE L00,"torch","battery" [FALSE] L0002 STORE L01,#02 L0002: JE L00,"aunt","jemima","gloves" [FALSE] L0003 STORE L01,#03 L0003: JE L00,"romance","marie" [FALSE] L0004 STORE L01,#04 L0004: JE L00,"daisy","daisychai","daisies" [FALSE] L0005 STORE L01,#05 L0005: JE L00,"medicine" [FALSE] L0006 STORE L01,#06 L0006: JE L00,"demijohn" [FALSE] L0007 STORE L01,#07 L0007: JE L00,"bottle" [FALSE] L0008 STORE L01,#08 L0008: JE L00,"heaven" [FALSE] L0009 STORE L01,#09 L0009: JE L00,"hell" [FALSE] L0010 STORE L01,#0a L0010: JE L00,"card","postcard" [FALSE] L0011 STORE L01,#0b L0011: JE L00,"ghost","joshua" [FALSE] L0012 STORE L01,#0c L0012: JE L00,"prayer","isaac" [FALSE] L0013 STORE L01,#0d L0013: JE L00,"museum","arcana","doktor" [FALSE] L0014 STORE L01,#0e L0014: JE L00,"stein" [FALSE] L0015 STORE L01,#0e L0015: JE L00,"merlyn","merlin" [FALSE] L0016 STORE L01,#0f L0016: JE L00,"hat" [FALSE] L0017 STORE L01,#10 L0017: JE L00,"book" [FALSE] L0018 STORE L01,#11 L0018: JE L00,"ebenezer" [FALSE] L0019 STORE L01,#12 L0019: JE L00,"projector","slide","cards" [FALSE] L0020 STORE L01,#13 L0020: JE L00,"rod","rods" [FALSE] L0021 STORE L01,#14 L0021: JE L00,"tarot","sosostris" [FALSE] L0022 STORE L01,#15 L0022: JE L00,"boat","hollow" [FALSE] L0023 STORE L01,#16 L0023: JE L00,"mouse","robot","hole" [FALSE] L0024 STORE L01,#17 L0024: JE L00,"key" [FALSE] L0025 STORE L01,#18 L0025: JE L00,"radio","wireless" [FALSE] L0026 STORE L01,#19 L0026: JE L00,"fireplace","chimney" [FALSE] L0027 STORE L01,#1a L0027: JE L00,"sandstone","recess" [FALSE] L0028 STORE L01,#1b L0028: JE L00,"austin","cat" [FALSE] L0029 STORE L01,#1c L0029: JE L00,"smoke","detector","alarm" [FALSE] L0030 STORE L01,#1d L0030: JE L00,"ship" [FALSE] L0031 STORE L01,#1e L0031: JE L00,"flag" [FALSE] L0032 STORE L01,#1f L0032: JE L00,"alison","bed" [FALSE] L0033 STORE L01,#20 L0033: JE L00,"revolving" [FALSE] L0034 STORE L01,#21 L0034: JE L00,"cabinet" [FALSE] L0035 STORE L01,#22 L0035: JE L00,"matchbook" [FALSE] L0036 STORE L01,#23 L0036: JE L00,"curses" [FALSE] L0037 STORE L01,#24 L0037: JE L00,"tera" [FALSE] L0038 STORE L01,#25 L0038: RET L01 Routine R0450, 2 locals STORE L01,#00 JE L00,"heaven" [FALSE] L0001 STORE L01,#01 L0001: JE L00,"hell" [FALSE] L0002 STORE L01,#02 L0002: JE L00,"rods" [FALSE] L0003 STORE L01,#03 L0003: JE L00,"maze" [FALSE] L0004 STORE L01,#04 L0004: JE L00,"master" [FALSE] L0005 STORE L01,#05 L0005: JE L00,"infinity","lemniscus","arc" [FALSE] L0006 STORE L01,#06 L0006: JE L00,"andromeda" [FALSE] L0007 STORE L01,#07 L0007: JE L00,"mural" [FALSE] L0008 STORE L01,#08 L0008: JE L00,"folly" [FALSE] L0009 STORE L01,#09 L0009: JE L00,"zeus" [FALSE] L0010 STORE L01,#0a L0010: JE L00,"bomb","lighthous" [FALSE] L0011 STORE L01,#0b L0011: JE L00,"pharos","device" [FALSE] L0012 STORE L01,#0b L0012: JE L00,"sacrifice" [FALSE] L0013 STORE L01,#0c L0013: JE L00,"luck" [FALSE] L0014 STORE L01,#0d L0014: JE L00,"fire" [FALSE] L0015 STORE L01,#0e L0015: JE L00,"old","evans" [FALSE] L0016 STORE L01,#0f L0016: JE L00,"ugly","idol" [FALSE] L0017 STORE L01,#10 L0017: JE L00,"mascot","moon","racing" [FALSE] L0018 STORE L01,#0f L0018: JE L00,"gold","golden","watch" [FALSE] L0019 STORE L01,#11 L0019: JE L00,"squirrel","friend" [FALSE] L0020 STORE L01,#12 L0020: JE L00,"loose","board" [FALSE] L0021 STORE L01,#12 L0021: JE L00,"spade" [FALSE] L0022 STORE L01,#13 L0022: JE L00,"croquet","lawn" [FALSE] L0023 STORE L01,#14 L0023: JE L00,"smooth","magnetic","stone" [FALSE] L0024 STORE L01,#16 L0024: JE L00,"anoppe","eppona" [FALSE] L0025 STORE L01,#17 L0025: JE L00,"strong","strongbox" [FALSE] L0026 STORE L01,#16 L0026: JE L00,"astrolabe" [FALSE] L0027 STORE L01,#16 L0027: JE L00,"tombstone","tomb","stone" [FALSE] L0028 STORE L01,#18 L0028: JE L00,"sphinx","sphinxes" [FALSE] L0029 STORE L01,#19 L0029: JE L00,"couch","couches" [FALSE] L0030 STORE L01,#1a L0030: JE L00,"skiff","yacht","boat" [FALSE] L0031 STORE L01,#1b L0031: JE L00,"adamantin","knight" [FALSE] L0032 STORE L01,#1c L0032: JE L00,"hand","head" [FALSE] L0033 STORE L01,#1d L0033: JE L00,"library","portico" [FALSE] L0034 STORE L01,#1e L0034: JE L00,"librarian","apolloniu","callimach" [FALSE] L0035 STORE L01,#1f L0035: JE L00,"alexandri" [FALSE] L0036 STORE L01,#20 L0036: JE L00,"quarterst","quarter","staff" [FALSE] L0037 STORE L01,#21 L0037: JE L00,"high" [FALSE] L0038 STORE L01,#22 L0038: JE L00,"oubliette" [FALSE] L0039 STORE L01,#23 L0039: JE L00,"amber","gem" [FALSE] L0040 STORE L01,#24 L0040: JE L00,"statues","gods" [FALSE] L0041 STORE L01,#25 L0041: JE L00,"oracle","priestess","delphic" [FALSE] L0042 STORE L01,#26 L0042: JE L00,"altar" [FALSE] L0043 STORE L01,#26 L0043: JE L00,"oil","trough" [FALSE] L0044 STORE L01,#27 L0044: JE L00,"homer","poet" [FALSE] L0045 STORE L01,#28 L0045: JE L00,"summer","house" [FALSE] L0046 STORE L01,#29 L0046: JE L00,"contrapti","panel","grid" [FALSE] L0047 STORE L01,#2a L0047: JE L00,"ozone" [FALSE] L0048 STORE L01,#2b L0048: RET L01 Routine R0451, 0 locals Action routine for: "xdh SPECIAL" CALL_2N R0453 (G50) RTRUE Routine R0452, 0 locals Action routine for: "xah SPECIAL" CALL_2N R0454 (G50) RTRUE Routine R0453, 2 locals CALL_2S R0449 (L00) -> L01 JE L01,#00 [TRUE] L0001 CALL_2N R0447 (L01) STORE L01,#01 RET L01 L0001: CALL_2S R0450 (L00) -> L01 JE L01,#00 [TRUE] L0002 PRINT ""That's a question you'd better put to my colleague in the Other Place," says the demon smoothly. "Try something else." " STORE L01,#00 RET L01 L0002: PRINT ""That's not something I am empowered to answer," says the demon with a nervous glance behind him. "Try something else." " STORE L01,#00 RET L01 Routine R0454, 2 locals CALL_2S R0450 (L00) -> L01 JE L01,#00 [TRUE] L0001 CALL_2N R0448 (L01) STORE L01,#01 RET L01 L0001: CALL_2S R0449 (L00) -> L01 JE L01,#00 [TRUE] L0002 PRINT ""That's a question you'd better put to my colleague in the Other Place," says the angel smoothly. "Try something else." " STORE L01,#00 RET L01 L0002: PRINT ""That's not something I am empowered to answer," says the angel with a beatific smile upward. "Try something else." " STORE L01,#00 RET L01 Routine R0455, 7 locals JE G2a,#00 [FALSE] L0001 PRINT "Congratulations once again on winning "Curses". Before you go, though, have you ever... seen the maze layout from up the tree? asked the demon and angel about Heaven and Hell? showed them all the objects you can carry around? tried singing, swimming, swearing or ramming doors? tried casting all the rods on yourself? " PRINT " shown the demon something edible? tried walking on the roof? tried magic words like xyzzy, plugh, shantih or the Zork verb diagnose? or considered getting your revenge, by writing your own Adventure game? " PRINT "Which only leaves one final diversion, the "Curses" trivia quiz. And the questions are: " JUMP L0023 L0001: STORE L01,#05 L0002: STORE L02,#00 ERASE_WINDOW #ffff SPLIT_WINDOW #0e LOADB #00,#21 -> L00 JE L00,#00 [FALSE] L0003 STORE L00,#50 L0003: SET_WINDOW #01 SET_CURSOR #01,#01 SET_TEXT_STYLE REVERSE STORE Gef,L00 JL Gef,#01 [TRUE] L0005 L0004: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0004 L0005: DIV L00,#02 -> -(SP) SUB (SP)+,#0a -> L06 SET_CURSOR #01,L06 PRINT "Curses Trivia Quiz" SET_CURSOR #02,#01 STORE Gef,L00 JL Gef,#01 [TRUE] L0007 L0006: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0006 L0007: SET_CURSOR #02,#02 PRINT "N = next question" SUB L00,#0c -> L06 SET_CURSOR #02,L06 PRINT "P = previous" SET_CURSOR #03,#01 STORE Gef,L00 JL Gef,#01 [TRUE] L0009 L0008: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0008 L0009: SET_CURSOR #03,#02 PRINT "RETURN = reveal answer" SUB L00,#0c -> L06 SET_CURSOR #03,L06 PRINT "Q = end quiz" SET_TEXT_STYLE ROMAN SET_CURSOR #05,#02 LOADW #00,#08 -> -(SP) OR #02,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ PRINT " What are the six "good but wrong guesses"? How many songs can play on the wireless? What are the nine *** game ends ***? What else do the daisy chain and mirror do? What can you see in the crystal ball? How else can Austin leave the attic? Whose is the handkerchief, and the graffiti? How many Tarot cards are there altogether? What are the six unnecessary puzzles? How is the medicine bottle opened? What is the mascot for? Where do the ancient languages come from? " L0010: JE L01,L02 [TRUE] L0012 JG L02,#00 [FALSE] L0011 SET_CURSOR L02,#04 PRINT " " L0011: SET_CURSOR L01,#04 PRINT ">" L0012: STORE L02,L01 READ_CHAR #01,#00,#00 -> L05 JE L05,#4e,#6e,#81 [FALSE] L0014 INC L01 JE L01,#11 [FALSE] L0013 STORE L01,#05 L0013: JUMP L0010 L0014: JE L05,#50,#70,#82 [FALSE] L0016 DEC L01 JE L01,#04 [FALSE] L0015 STORE L01,#10 L0015: JUMP L0010 L0016: JE L05,#51,#71 [FALSE] L0017 JUMP L0022 L0017: JE L05,#0a,#0d [FALSE] L0021 SET_WINDOW #00 LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ ERASE_WINDOW #ffff STORE G41,#01 NEW_LINE NEW_LINE NEW_LINE STORE L03,#03 STORE L04,S1027 SPLIT_WINDOW #01 LOADB #00,#21 -> L00 JE L00,#00 [FALSE] L0018 STORE L00,#50 L0018: SET_WINDOW #01 SET_CURSOR #01,#01 SET_TEXT_STYLE REVERSE STORE Gef,L00 JL Gef,#01 [TRUE] L0020 L0019: PRINT_CHAR ' ' SUB Gef,#01 -> Gef JE Gef,#00 [FALSE] L0019 L0020: DIV L00,#02 -> -(SP) SUB (SP)+,L03 -> L06 SET_CURSOR #01,L06 PRINT_PADDR L04 SET_TEXT_STYLE ROMAN SET_WINDOW #00 STORE G41,#01 NEW_LINE SUB L01,#04 -> -(SP) CALL_2N R0456 ((SP)+) PRINT " [Please press SPACE.] " READ_CHAR #01,#00,#00 -> L05 JUMP L0002 L0021: JUMP L0010 L0022: LOADW #00,#08 -> -(SP) AND #fffd,(SP)+ -> -(SP) STOREW #00,#08,(SP)+ SET_CURSOR #01,#01 ERASE_WINDOW #ffff SET_WINDOW #00 STORE G41,#01 CALL_1N R0159 NEW_LINE NEW_LINE NEW_LINE RTRUE L0023: PRINT " 1. What are the six "good but wrong guesses" which deserve reward? 2. How many different songs can play on the wireless? 3. What are the eleven *** ways the game can end ***? 4. When does the daisy chain rustle? 5. What can you see in the crystal ball? 6. What's the other way to get Austin out of the attic? 7. Explain two of the initials on the handkerchief, and the graffiti. 8. How many Tarot cards are there altogether? (Hint: more than nine!) 9. What are the six puzzles which need not be solved? 10. What are the four-and-a-half ways to open the medicine bottle? 11. What is the mascot for in the premonition? " PRINT " To see one of the answers, type its question number; or press ENTER to go back to the menu. " L0024: PRINT_CHAR ':' PRINT_CHAR ' ' STOREB G47,#01,#00 CALL_1N R0159 READ G47,G48 -> Gef LOADB G48,#01 -> -(SP) JE (SP)+,#00 [FALSE] L0025 NEW_LINE RTRUE L0025: CALL_2S R0021 (#01) -> L00 NEW_LINE JE L00,#00 [FALSE] L0026 PRINT "There is no question zero. " L0026: JG L00,#0b [FALSE] L0027 PRINT "There are only eleven questions. " L0027: CALL_2N R0456 (L00) NEW_LINE JUMP L0024 orphan code fragment: RTRUE Routine R0456, 1 local JE L00,#01 [FALSE] L0001 PRINT "1. Giving Aunt Jemima the wrapped parcel; or kissing her; attracting Bateau Phlebas by waving the poster (which can be torn down) at it; casting the Rod of Fire at the medicine bottle to try and open it (as advised by your friendly neighbourhood demon); trying the postcard in the slide projector; feeding Austin the chicken bone. " L0001: JE L00,#02 [FALSE] L0002 PRINT "2. Eighty. (The inspiration for the radio station came about when the author was driving at midnight through Oxfordshire and the local station played, in succession, the Moonlight Sonata, the Four Seasons, You Take My Breath Away and Gold. So the radio plays the 80 most hackneyed radio tunes the author could think of.) " L0002: JE L00,#03 [FALSE] L0003 PRINT "3. Missing the point completely; dying; winning; being transported to Australia; becoming a constellation; being arrested as a terrorist; being annihilated by a temporal paradox; being checkmated; and disembodying the entire physical universe. One can also die-but-not-die with the unluckier Tarot cards. " L0003: JE L00,#04 [FALSE] L0004 PRINT "4. Inventory shows the (magic) daisy chain rustling when you are carrying something which could turn into a rod, but hasn't been waved yet. Similarly, the vanity mirror does not reflect rods or things which become rods. And it makes the viewer beautiful... " L0004: JE L00,#05 [FALSE] L0005 PRINT "5. Apart from the projector beam's effects, looking into the ball shows one of twelve little scenes, and these correspond to the twelve zones of the game. " L0005: JE L00,#06 [FALSE] L0006 PRINT "6. Open the trapdoor, wait for Austin to jump down it into the house, then close the trapdoor again. He'll scratch at it, but won't be able to get back in. " L0006: JE L00,#07 [FALSE] L0007 PRINT "7. The Unreal City is based on the early poems of T. S. Eliot (though he was half-quoting from Baudelaire). The handkerchief is not Jemima's: it belongs to J. Alfred Prufrock (but its appearance also alludes to "The Waste Land"). The graffiti behind the poster ("Shantih Shantih Shantih") comprises the closing words of "The Waste Land", and is not (as one inspired player suggested to the author) meant as an anagram of "has hint". " L0007: JE L00,#08 [FALSE] L0008 PRINT "8. 59. Nine can be carried, plus another 21 trumps and 29 plainer cards in the pack. " L0008: JE L00,#09 [FALSE] L0009 PRINT "9. Cleaning the crystal ball and investigating it; ascending to the Heavenly Place; rescuing the lovely Andromeda by vanquishing the Kraken; activating the smoke detector (the solution is inconvenient but possible without); learning to speak Celtic, without which the end game is perfectly possible but makes rather less sense. And restoring the ugly idol to life, thus compensating Old Evans. " L0009: JE L00,#0a [FALSE] L0010 PRINT "10. Dropping it down the dumbwaiter shaft; dropping the dumbwaiter onto it; running over it in the garden roller; dropping it from the top of the beanstalk, and giving it to Aunt Jemima (though this doesn't quite work out for the best.) Dropping it down the fireplace chimney, however, does not work. " L0010: JE L00,#0b [FALSE] L0011 PRINT "11. The mascot is a red herring, the only really substantial one in the game. It is extremely bad for you. You can't even give it to Aunt Jemima. It scores -50, the demon advises you to hang onto it at all times - and it was cursed. " L0011: JE L00,#0c [FALSE] L0012 PRINT "12. There are two ancient languages: a hieroglyphic and a demotic writing, the important clue of course being the Rosetta stone to compare the two. The hieroglyphics are loosely based on the beautiful system devised by Michael Berlyn and Patricia Fogleman for their excellent game, "Infidel", though I have taken care to ensure "Curses" reveals none of their answers. The demotic script (written right to left) is my own invention, but the numbers are Etruscan. (And are just about the only Etruscan words deciphered - they were found on a gambler's die.) " L0012: RTRUE Routine R0457, 3 locals LOADB L00,#00 -> L02 STORE L01,#01 DEC L01 L0001: JL L01,L02 [FALSE] L0002 INC L01 STOREB L00,L01,#00 JUMP L0001 L0002: RTRUE Routine R0458, 4 locals LOADB L00,#00 -> L03 STORE L02,#01 DEC L02 L0001: JL L02,L03 [FALSE] L0002 INC L02 LOADB L01,L02 -> -(SP) STOREB L00,L02,(SP)+ JUMP L0001 L0002: RTRUE [End of code] [Start of text] S001: "CURSES" S002: "a" S003: "You can't go that way." S004: "the" S005: "the" S006: "the" S007: "the" S008: "the" S009: "the" S010: "the" S011: "the" S012: "the" S013: "the" S014: "It is pitch dark, and you can't see a thing." S015: "a" S016: "." S017: "." S018: "A home for the bewildered. NE to stream, NW to lighthouse, SE to extension, SW to Folly, N to onboat, S to projector, E to Cafe, W to Infroom, U to cliffs, D to cave." S019: "a" S020: "This is rather dangerous, I'm afraid. Use only on vegetative matter." S021: "a" S022: "Well, that's not very useful, is it? I'd go on strike if I were you." S023: "a" S024: "It has no horticultural application." S025: "a" S026: "Well, where might you have seen infinity before?" S027: "a" S028: "Perhaps you should look up "husbandry" in a dictionary." S029: "a" S030: "Bronze is the key here. Have you seen any other bronze anywhere?" S031: "a" S032: "Far, far too dangerous. The age of martyrs in the church is long gone, you know." S033: "a" S034: "Well, if there's such a thing as luck, maybe this would help." S035: "the" S036: "Astonishing! One of the three high Rods!" S037: "An adamantine rod, bearing a sculpted hand on one end, and inscribed with its title." S038: "The High Rods of Life, Love and Death lean together in a pyramid at the top of the steep slope, balanced rather delicately." S039: "the" S040: "Astonishing! One of the three high Rods!" S041: "An adamantine rod, bearing a sculpted skull on one end, and inscribed with its title." S042: "the" S043: "Astonishing! One of the three high Rods!" S044: "An adamantine rod, bearing a sculpted heart on one end, and inscribed with its title." S045: "a" S046: "Use only at heated moments, when affairs are delicately balanced." S047: "The attics, full of low beams and awkward angles, begin here in a relatively tidy area which extends north, south and east. The wooden floorboards seem fairly sound, just as well considering how heavy all these teachests are. But the old wiring went years ago, and there's no electric light." S048: "A hinged trapdoor in the floor stands open, and light streams in from below." S049: "There is a closed trapdoor in the middle of the floor." S050: "some" S051: "Open-topped. You could easily look inside, if so minded." S052: "It was to have been the Honourable Peter Meldrew's life's work, a two-volume edition giving the definitive family history. Unfortunately, although he claimed to have hunted for evidence to the ends of the earth, he never could find a detail he wanted for volume I, and it was never published. Somehow, this typifies your family, and consulting this worthy book about your ancestors makes you realise what an uncanny knack they had for never quite achieving anything. Unless, of course, you count having an awful lot of children. So many Meldrews are listed here that you'll have to look them up individually." S053: "What a boring old book! There's nobody worth looking up." S054: "A graceful lady's box, bearing the initials A. M. and engraved with a drawing of what seems to be a rabbit's foot." S055: "In one corner is a jewellery box, which had previously been hidden by the open trapdoor." S056: "Try investigating the world of the romantic novel, out on the balconies of life." S057: "Actually a four-leafed sprig of herb paris (Paris Quadrifolia) in the shape of a fourfold true-love knot. But that was good enough for Alison." S058: "Not much use as it is, is it?" S059: "Perfect for little pointy forks." S060: "Please, please. This isn't that kind of afterlife." S061: " Things to do: 1. Find map 2. Phone airport to check parking 3. Health forms... and so on. Let's face it, 1. is more enticing than the rest put together." S062: "Immensely useful, that." S063: "The torch has a battery compartment which can be reached by opening it up." S064: "Pity you can't change the batteries." S065: "Oatmeal covered with plain chocolate, since you ask." S066: "I bet you didn't know that chocolate biscuit manufacturers are damned in perpetuity? I'm afraid the chapters about that in the Old Testaments were lost, though, and now no-one can remember why." S067: "Once upon a time, servants in great houses lived in awful little crevices and excuses for rooms like this one. They must have been in permanent danger of suffocation, for there are no windows and only a doorway to the west. A bed is still kept here, and the sight of it brings on drowsiness in all this warm stuffy air. All you want to do is curl up and sleep." S068: "A tight door stands open in the northern wall, giving onto the servants' staircase." S069: "Hobson's" S070: "Lots of naughty words in that one." S071: ""Hobson's: A Choice Classical Dictionary". It claims to have numerous entries." S072: "There's a little book on the tiny bedside table." S073: "Made by Dunn and Co., naturally, with four stripes: royal blue, emerald, dark grey and scarlet." S074: "An old striped scarf hangs up behind the doorway." S075: "The very height of fashion, if you ignore the colours and wear it regardless." S076: "Scruffy old furniture is piled up here: armchairs with springs coming out, umbrella stands, a badly scratched cupboard, a table with one leg missing... You try to remember why you keep all this rubbish, and fail. Anyway the attic continues to the southeast." S077: "The attic turns from north to southeast here." S078: "It has a calm, soothing effect." S079: "A patent "Harrison" bird-whistle, according to the slogan on one side." S080: "Shame the wrapping paper won't come off." S081: "Far too nice to give to anybody else. In fact..." S082: "some" S083: "The reindeer have enormous significance." S084: "It is addressed to the house, and postmarked 1963, but has no message. Odd, that." S085: "There's no message there to read." S086: "These bottles can even survive long drops, so perhaps you should try fire." S087: ""Antidote only: no preventative effect."" S088: "This drug is for fun, it isn't an antidote. And it tastes gorgeous..." S089: "The air is dusty and warm, almost making you choke in this rather empty area. The attic turns from northwest to east, and there is also a tight doorway leading west. A short flight of wooden steps leads down and to the south." S090: "This is a roughly-furnished photographer's dark room, used by your grandfather years ago. There's nothing much here now, since you threw the chemicals out in case the children found them." S091: "The only doorway is back east." S092: "It is attached to the ceiling." S093: "You bump your head on the cord hanging from the ceiling, for the umpteenth time." S094: "Things do look subtly different in this light." S095: "When you can get this working, perhaps you should take it somewhere prominent." S096: "The kind of black box which often sits on top of a camera, used to illuminate otherwise dim scenes. It has an openable compartment on the side, with room left inside for a battery and a timer mechanism (which seem to be optional extras)." S097: "A rather more modern photographer's flash lies on a shelf to one side." S098: "Once upon a time, this small circular room had a dome and a telescope, but it leaked dreadfully and so now there's a proper roof. A circular mural painted with the signs of the zodiac is interrupted by a short flight of stairs leading up to the north, a smoke detector, a west doorway to a shadowy alcove and the continuation of the stairs down and to the south." S099: "It isn't at all clear on what principle the detector works. It looks like a smoke detector, certainly. But you just left the contractors to sort out all those boring fire prevention matters for themselves. They were a slap-dash firm, too, from what you remember. They put the little white thing high up, right in the middle of the Capricorn scene on the mural. And even if there was a fire, chances are it would be useless." S100: "Mounted on the old telescope stand is what looks like a solid glass ball." S101: "The ball is scratched and misted up." S102: "Once upon a time, the house library was used as a gun-room, and all the unwanted books kept up here. Now this is just another awkward cranny, with a water tank and some pipes in one corner which are something to do with the central heating." S103: "From here, you can only squeeze back east to the observatory." S104: "Don't bother reading or thinking about it. Nothing to do with your family." S105: "A romantic novel and a book of poetry are the only books left, and they're propping up a water pipe near a rather loose joint - it really is time you called a plumber to sort this one out." S106: ""Coronets for the Cotton Girl", by Miss Marie Swelldon, published London, 1912. It's all about the happy-go-lucky daughter of a Yorkshire mill owner and her adventures marrying into the aristocracy." S107: "My my, a golden age for clear, simple poetry. At last, an end to the dreary obscurity of Tennyson, Kipling and Hardy." S108: "This is where you ought to have left the wretched map, in the family lumber-room of souvenirs and holiday snaps. You checked it thoroughly earlier, and can't bear the thought of searching it all again. A slide projector is aimed at the whitewashed south wall, one of the outside walls of the house. The only way to go is back up to the observatory." S109: "It has an on/off switch on the side, and a slot for holding whatever is to be projected. There is also a little dial on the back, perhaps for the focus." S110: "This tight annexe at the eastern end of the house is piled up with old loft insulation rolls, left over from the last time the job was done (whenever that was). A gap between the tiles of the roof (which you really must mend before winter) lets a little natural light in, but the attics to the west and south are dark." S111: "some" S112: "That is a difficult puzzle, yes." S113: "In the north wall is an open cupboard door, large enough to step inside." S114: "In the north wall is an intriguing closed cupboard door." S115: "The winding attic comes to a dead end here, and particularly dirty it is too, what with soot everywhere from the broken old chimney sweeping gear." S116: "It might be handy, if only it could carry anything." S117: "Great Scott! That old canvas rucksack must be the very one your famous ancestor, the African explorer Ebenezer Meldrew, brought back from the Zambeze Expedition of 1882!" S118: "On second thoughts, now you look at more closely, it seems to be the rucksack you bought to go to Paris with five years ago." S119: "A secret door stands open in the south wall!" S120: "The secret door is closed." S121: "A hatchway in the east wall, onto an old iron fire escape, is open and light floods in through it. (Some fool must have set the alarm off.)" S122: "This is a surprisingly spacious cupboard, which you can't recall ever visiting before today. You really ought to use this convenient empty room for something..." S123: "Carry this with you everywhere you go." S124: "A large painting of Mad Isaac Meldrewe, your eighteenth-century ancestor, is propped up against the west wall." S125: "It used to hang in the downstairs landing, and the red, deranged eyes annoyed everybody who passed. Then Aunt Jemima picked up the ridiculous idea that it was by Sir Joshua Reynolds and had it valued. Happily it wasn't and, to cut a long story long, it ended up here." S126: "There is a big iron fireplace in the west wall." S127: "The skylight above is open, and the sky does indeed light the room." S128: "Above you is a blacked-out skylight with a crank handle." S129: "It was painted out black during the first wave of Zeppelin air raids in World War I. This is completely irrelevant, but you did ask." S130: "The cork filters have gone. It's useless now." S131: "This is a recessed area of the roof, open to the skies but screened from below. There used to be a flagpole here, but not any more. An open skylight leads down, and a fairly safe catwalk leads northwest. However, the red-tiled roof is vertiginous and you have vertigo, which makes it especially annoying that there's an odd little balcony too far away to the south." S132: "William Wordsworth once described poetry as emotion recollected in tranquillity. If so, hospitals must be full of people turning out verses about what it was like to fall off the roof of a high building. Perhaps it might be better not to join them." S133: "The old crenellated battlements of the house. An Englishman's home is, of course, his castle, but Meldrew Hall never saw much fighting and these military-looking features were just a seventeenth-century fashion. They also weren't intended for standing on, and the only safe way to proceed is back southeast. It is peculiarly cold here." S134: "The rooftop is far too dangerous in that direction." S135: "Unfortunately, what you need this for is up in the clouds." S136: "He is dressed in a grey shadow of Georgian finery." S137: "The chimney is cramped, sooty, unpleasant and has no floor to speak of, so you are held up only by jamming your feet against the walls. To the east, through the fireplace, is the cupboard." S138: "Not a chance!" S139: "Wedged loosely in beside you is a sooty old stick." S140: "It's exactly what it seems." S141: "Good heavens, so the house has a priest hole after all! It was always a family legend but nobody seemed to know quite where it was. Apart from a cross painted on one wall and a padded floor (to absorb the noise), this spartan cranny is featureless. Nevertheless there is a spooky air of the supernatural about... A narrow crawl leads up into the chimney." S142: "An open hatch-door in the wall at floor level reveals a chute leading down into darkness." S143: "Low down on one wall is a little hatch door, which if it were open would be large enough to enter." S144: "Perhaps the attic key might unlock it? It does look modern compared to everything else here." S145: "an" S146: "The really good research was in his earlier years." S147: "The dust and grime on the floor almost obscures an ancient prayer book." S148: "Despite appearances, this is not a prayer book after all but is Mad Isaac's diary of supernatural investigations! The script is cursive and cursory as he rambles on through all those theories about the Curse. There's so much of it that you'd better just look up particular years." S149: "A pleasantly furnished, if now mildewed, box room. There are engravings of Alison's heroines: Christina Rossetti, Elizabeth Browning, Emily Dickinson and Queen Victoria, an unlikely quartet. The wallpaper is done out in a dice motif, and a square outline of sixes surrounds a rather small door leading back north into the attics. The room is provided with a comfortable bed, which looks very inviting." S150: "There's just the secret north door, unless of course you count the windows." S151: "Black-latticed windows open on a beautiful summer's day." S152: "Blue sky can be seen through south-facing windows, latticed with black lead and shut tight." S153: "A tiny balcony around Miss Alison's windows, offering fresh air, blue skies and a magnificent view over the gardens down to the droning motorway in the distance. The roof is too perilous to scale even if you had a good reason (which you haven't), so you had better go back north." S154: "The rooftop is far too dangerous in that direction." S155: "You look down on a low, bare window-sill." S156: "The balcony is only a foot or so beneath the window-sill, and only about four feet square." S157: "Gold and lead are naturally related, so you want to find a lead box to open." S158: "This small cavity at the north end of the attic once housed all manner of home-made wine paraphernalia, now lost and unlamented. Steps, provided with a good strong banister rail, lead down and to the west, and the banister rail continues along a passage east." S159: "Faded ink on the label reads: Elderberry '63." S160: "It's provided for your torch, and not for anything else." S161: "On the side is the word "Achtung"." S162: "Purely decorative." S163: "The good news is that it has excellent grid references, which are easy to look up. The bad news is that it is a map of central Hamburg." S164: "A disused storage room off the winery. In one wall is an opening onto an ominous dark shaft, and beside it is a big Victorian-steam-engine style wheel with a handle on." S165: "The only doorway is back west to the winery." S166: "There is a concealed safety catch (poorly) hidden on the wheel." S167: "the old" S168: "Inside the dark shaft is the old dumbwaiter." S169: "Uninviting." S170: "The dumbwaiter hangs on strong pulley ropes which stretch up and down from here." S171: "It isn't even mentioned in any of the books I've read." S172: "The half which didn't get the wish, actually." S173: "A steel wrench gathers dust in the corner." S174: "Halfway up, or else halfway down, and a dreary place it is too: nothing but a dark corridor leading north." S175: "A passage which slants very slightly down to the south, which is full of coal dust, to which you are unfortunately allergic. Not somewhere to linger." S176: "A secret passage slants down to the east through a sandstone recess." S177: "There is a shallow sandstone recess in the east wall." S178: "At the north end is a metal door, standing open." S179: "At the north end is a closed metal door." S180: "Cobwebbed old cellars. There is nothing to see except an opening in one wall onto a dark shaft, and a big Victorian-steam-engine style wheel beside it with a handle on. The cellar continues west and south." S181: "There is a concealed safety catch on the wheel axle." S182: "Uninviting." S183: "There is a little closed window-vent low in the north wall." S184: "You can just make out an impression of golden light." S185: "A plain old piece of timber." S186: "An old timber prop, once the spar of a main mast." S187: "The broken flagpole, a plain timber spar, lies beside the mast." S188: "It can't even follow orders." S189: "In one corner is a dust-covered robot mouse." S190: "Remember the late 1970s, when a craze for home-made robots swept the home computing world? No, perhaps not, but here is a left-over from it anyway. The mouse is quite large (almost a foot wide and tall), and has a big smile painted on its metal chassis. It has surprisingly modern circuitry in, though, and is even humming very faintly, so someone must have put some work in on it recently." S191: "The bricking-up of this cellar seems incomplete, because there is a hole about ten or eleven inches across in the west wall. You peer at this with interest but nothing is within reach inside, and it is far too small for you to wriggle through. The cellars go back north, and so, it would appear, do you." S192: "It isn't the attic key, I fear." S193: "Brass is of course a non-magnetic copper-zinc alloy, so presumably this key also contains iron." S194: "Lying where the mouse dropped it is a small brass-coloured key." S195: "The west end of a disused and shadowy old cellar. It used to be a wine cellar, but was bricked up when you were a child - you never did find out why. Perhaps the golden, jewelled staircase leading down into smoky mists to the south might be something to do with it." S196: "In the northwest wall the ironbound door stands open." S197: "In the northwest wall is a heavy, imposing ironbound door." S198: "There are times when your life seems an endless sequence of locked doors, each harder to pass than the last. This one, though, has a feeling of the ultimate about it." S199: "An eerie, dark cave carved from crystal icicles of rock and strewn with great spiders' webs hung from the ragged stone, inhabited only by dead white insects. A narrow crevice opens out to an iron doorway and the warmth of the house. The rough stone floor levels out to a perfectly round, smooth white marble disc about five yards across, inscribed with a black lemniscus (or infinity) symbol. You shiver with foreboding, but inexplicably feel that the map you're looking for must be somewhere near here." S200: "There is now a small spherical opening in one wall." S201: "It would just hold a ball the size of your palm." S202: "This used to be called the Conservatory, before Aunt Jemima took it over to potter about with plants, painting and indeed (on occasion) pottery. She has filled the place with objets trouves and bric-a-brac, and hung up a home-made calendar of watercolours. Even the old airing cupboard to the south is cluttered. An open doorway leads back southwest onto the upstairs landing, and you can hear the chaotic noise of suitcases being manhandled about - good thing nobody's seen you. A narrow staircase leads up and to the east into the attic. Jemima herself seems to be in the potting room to the west." S203: "A space about six feet square. The old drying racks now contain odd ceramic sculptures almost but not quite unrecognisable as coffee mugs. One corner is filled with an enormous pile of tie-dyed sheets, from Aunt Jemima's infamous Sixties Revival period of last October." S204: "The only way to go from here is back north." S205: "It rolls on casters, and has a bakelite on/off switch." S206: "To one side is a heavy cabinet on casters containing an antiquated wireless, the kind with glowing valves inside. On the top is a bakelite on-off switch." S207: "To one side is a heavy cabinet on casters containing an antiquated wireless, the kind with valves inside. On the top is a bakelite on-off switch." S208: "This light room is full of pot plants, flowers, seeds, ornamental trowels and other miscellaneous garden implements." S209: "The only exit is back east to the conservatory." S210: "some" S211: "Good for nothing. Why would you want gloves on?" S212: "A pair of yellow rubber gloves hangs from a hook on one wall." S213: "Aunt" S214: "She's been fiddling about with those cut flowers all afternoon. And she's a bit upset at being left alone in the house while you're off on holiday, so best not to get on her bad side. You really ought to make it up to her somehow." S215: "Aunt Jemima, who has for years collected varieties of daisy, is engaged in her regular annual pastime of deciding which species make the best chains." S216: "Dangerous to wear. But at least any sort of daisies will do." S217: "It is a frosty, clear night, but there is a scent of camp-fires burning in the distance. You are passing through the landscape as if a ghost, and all seems faintly unreal. To the east is one side of an animal-hide tent, but there is no way in from here. To southwest, some soldiers sit around the embers of a fire. There is a terrible sense of something about to happen." S218: "This is the tent of a thin, reedy man who wears no uniform but has an obvious and commanding presence. He has an aquiline, patrician nose and, at five feet four, is taller than anyone else present. The others are advisers, junior officers, scheming politicians and their like. They are keeping their distance from a trestle table at the north end of the tent." S219: "This is a kind of improvised shrine. A trestle table bears entrails, crude drawings sketched out on hide, and caged animals: draped beside it is a primitive tapestry of a bear reared up on its hind legs." S220: "An absolute essential." S221: "On the table is a heavy iron mascot of some kind." S222: "The mascot is in the shape of an ankh, with a lemniscus (or infinity) symbol moulded onto it." S223: "You can almost smell fear here. A motley platoon of soldiers are sitting about the embers of a fire. None are talking or sleeping, and the false good humour of the evening has died away. At first light, you realise, there will be a battle. It isn't a risk you'd like to run in their place. And there is a strange light already in the east... not yet a dawn, for the soldiers seem unaware of it." S224: "A standing stone, perhaps a glacial erratic, stands here and on top of it is a shining blue stone, whose brightness almost blinds you. You feel irresistably drawn to it, and your hand reaches out..." S225: "In the lush, verdant (which is to say, under-cared for) gardens of Meldrew House, where a stream gurgles pleasantly as it meanders through reeds. The house rises up high above you to the south and you do not dare go east for fear of being recaptured by the rest of the family, so you'll have to go northwest, deeper into the gardens." S226: "Better not go that way... you might get caught." S227: "On the house wall is a coal bunker, whose door stands open." S228: "On the house wall is a coal bunker, whose loading door is shut." S229: "You stand in the shade of a great plane tree, seedlings for which were brought back from Spain by an ancestor of yours in 1806. To the southeast is a stream, to the west is a small clearing and to the north a single break in the green privet hedge marks the entrance to the famously difficult Meldrew Hall Maze. A signpost reading "To the Mosaic" points east across the lawn." S230: "Several hundred years of rolling have made this a rather fine patch of grass, between the privet hedge (north), the plane tree (west) and the mosaic (east). Unfortunately, it is adorned with all the really ugly ornaments (gnomes, plaster nymphs, stone windmills to grow flowers in), this being the corner of the garden least visible from the house." S231: "East or west." S232: "This sunken corner of the garden has been excavated and then covered over with tough perspex to protect it from visitors' shoes. It consists of a time-worn Roman mosaic, divided into four quadrants, each showing scenes of idealised Roman life. There was probably a villa on this site, but your family has never been keen on archaeologists so the excavations went no further." S233: "From here you can climb back up to the lawn." S234: "A clearing at the edge of the garden, surrounded by walls and the privet hedges of the maze. To the east is the plane tree, to the west an opening in the wall makes a garage entrance and to the south is a small vegetable garden." S235: "A recently-turned vegetable garden, using up a shady corner of the garden. The patch testifies more to good intentions than horticulture." S236: "From this corner, you can only go back to the clearing." S237: "A giant runner-bean plant leads up vertiginously into the sky from here." S238: "Only a runner-bean plant graces the vegetable garden." S239: "A modest brick garage, built into the garden walls. A big open doorway leads east onto the clearing." S240: "A motorised garden roller of the kind you sit inside, among whose simple controls is a big on/off switch." S241: "The garden roller sits here, its engine still running." S242: "A big motorised garden roller is parked here." S243: "The funny thing is, they didn't have weedkillers in the early nineteenth century, and yet they still planned some marvellous gardens." S244: "If squeezed, it squirts weed killer over the ground. There are many warning labels about getting it on one's hands." S245: "In the shadows is a weed killer bottle." S246: "A magnificent view of the gardens would be yours, were it not for the branches and leaves which surround you. You can make out Aunt Jemima up at the conservatory window, but hide from her view. Down below, the privet-hedge layout of the maze can be seen through the lower branches." S247: "No, don't go out on a limb." S248: "A maze of green privet passages, all alike." S249: "The privet hedges are in the way." S250: "This is an old stone patio in the heart of the garden maze. A missing flagstone offers an intriguing dark prospect beneath." S251: "The privet hedges are in the way." S252: "Sticking out of some soft earth is a perfectly-carved marble rose." S253: "Perfection set in stone. Not a gift for mortal women!" S254: "A dismal crypt, disused, full of leaves and rainswept. Light streams in from the square hole in the roof. There are no bones or urns on show." S255: "The mural stands slightly to one side, revealing a passage leading downward." S256: "The south wall forms a giant bronze mural, which has stood the test of time." S257: "The mural depicts an old bearded wise man following a star in the western sky. He has his right arm around an attractive young woman and holds a bundle of wands with his left hand. Around the border are astrological symbols of all kinds, from Tarot suits to zodiacal constellations." S258: "An eerie passage, running down from an opening at the north to murky depths in the south. The walls are jagged, uneven and decorated with bones. An unpleasantly stale, charnel odour drifts in through a gap to the east." S259: "You appear to be standing on a wrought iron key." S260: "A figure-eight double ring, a long barrel and a finely-cut ten-groove claw: this is the ultimate in keys. It is superb." S261: "A long, winding, vile passage through the earth, running east to west. The distasteful odour grows stronger as you go east." S262: "Well, perhaps "sarcophagus" is a little melodramatic, but it's that kind of moment. This must be somewhere under the old parish church. You are stooped over inside a stone tomb, stained and crumbled with decay, broken only by a crevice you crawled in by. It is a nightmarish place." S263: "A large, grisly cave, deep under the garden, dimly lit and eerie. Darkness curls around the natural pillars of rock like a mist: and there is a peculiar, vaguely familiar odour to it. The only obvious routes out are an uneven passage climbing to the north and a crawl west." S264: "You bumped into something unpleasant there." S265: "The cartoonist Heath Robinson used to specialise in drawings of fantastically complicated machines of string, pulleys, levers, counterweights, cogs, mice running about on wheels and the like. Just such a contraption fills the west end of this room, though most of the workings are behind a glass wall which, although running with age, is as solid as the day it was built. The parts are very old (hand-made, not machined) but uncorroded. The only way out appears to be via the crawl to the east." S266: "The whole wall is occupied by a bronze mirror, reflecting the room." S267: "The north edge of the room is a big sheet of dull amber-coloured metal." S268: "Someone rather good-looking (you can't help thinking) is reflected in the metal surface." S269: "How tantalisingly valuable it seems." S270: "Solid, heavy, reliable, out of reach on the other side of the glass." S271: "A treasure in every sense, but misted over, like condensation on a cold window. Odd shapes seem visible through the haze: a horse's head, castle walls, a priest's crook." S272: "Sitting on the grass, beside the well, is a glowing golden orb." S273: "You half-stand, half-float in a golden, misty sphere perhaps ten yards across, which slowly spins. The centre, out of reach and somehow insubstantial, is an eight-by-eight lattice of oblong crystals, bathed in warm pearly light." S274: "Images lurk about the array of oblong crystals." S275: "They are extremely hard to see and impossible to touch, as if you can only catch anything at all through the corner of your eye." S276: "You really should try to be more awestruck, for this is Merlin's cave, the hub of Creation. Every visitor perceives this place differently, according to his or her own myths and beliefs. Your particular creed being science, there is only a black metal one-metre cube with an unimpressive collection of gauges and dials. An aluminium staircase leads up." S277: "The lower, on, position is labelled "Determinism". The upper, off, position is labelled "Chance"." S278: "This flagstoned rampart on the hillside looks across the valley, down (unfortunately) to the motorway below. Coaches pass by, reminding you of the rapidly approaching time when visitors will have to be let in again for the summer. The only safe way to go is back east into the maze. To one side is a plaque." S279: "The hillside is too steep." S280: "A miniature plastic etching rests on the plaque." S281: "What's the point of a drawing so small it might almost be a playing card?" S282: "No larger than a playing card, it depicts the Folly which used to stand on the hillside outcrop." S283: "This is a rampart on the hillside, a natural ledge leading east. Down below in the valley, rough cottages surround a church. Labourers toil in the fields, and a hay wain is being pulled across the river. Towering over you is a monstrously awful piece of architecture, a Folly. The freestanding tower has no appreciable purpose and no apparent entrance. The latter is just as well since it looks extremely unsafe." S284: "The hillside is too steep." S285: "Whatever you do, it'll always be a bean pole." S286: "A bean pole, of the kind used to grow climbing plants, rests against the side of the tower." S287: "At the top of the beanstalk, in amongst the clouds. There is no safe way to go from here except back down, not surprisingly. A dangerous way might be to step out onto the clouds to the north, but even if this is a fairy-tale it would be taking a lot on trust." S288: "The clouds are too tenuous that way." S289: "A square grid of plots of grass and seedbeds, all alike." S290: "Capability Meldrew and his gang of workmen are delicately planting a sapling plane tree here. Your disturbance annoys them immensely and you are immediately arrested for vagrancy and theft. After a few months in prison, you are hauled up before the County Assizes and sentenced..." S291: "The Museum of Arcana is deserted after nightfall and only dimly lit by distant sodium street-lamps. Outside it is a stormy October night, and rain beats against the windowpanes. Shadows swoop and dive in the air like bats. The revolving door to northeast, which leads out, seems to be solidly blocked off. But a dim passage runs south, through a strange metal corridor." S292: "There's no apparent way but south." S293: "A publicity poster is displayed for passers-by outside to see." S294: "One of those pretentious exhibition posters. Your German is just about adequate to the task: "Cults of the Druids - a Major Retrospective, October-November 1988"." S295: "Inside one quarter of the cramped revolving door, which is blocked off from the world outside and opens only onto the foyer, southwest." S296: "To north and east are the walls of the door." S297: "You stand within it." S298: "Inside one quarter of the cramped revolving door, which is blocked off from the world outside and opens only onto the foyer, southwest." S299: "To north and east are the walls of the door." S300: "You stand within it." S301: "A colourful, striped inflated beach ball bounces around in the door." S302: "A great square gloomy room, just south of the foyer. There are square lintelled doorways east and west. The storm is dark, and the windows are high, but there's just enough light to see by." S303: "There's nothing worthwhile in it." S304: "Resting on a little display table is a Tarot box." S305: "A long painted still life graces one wall near a corner." S306: "A disturbing painting, perhaps by Edvard Munch, this is a still life of a seedling on a table, surrounded by a rusty iron rod with a star on the end, a glass bottle, a lamp and a bunch of keys. No doubt these arcane objects held some special significance for primitive tribes now absorbed into civilisation." S307: "A dark staircase, turning from east to south as it descends. The hideous sound of rhythmless chanting can be heard from below." S308: "On one step, an empty matchbook lies discarded." S309: "Ah, I fear it is only a token clue." S310: "It's from the Ruined Castle Cafe, and (like the Cafe) is matchless." S311: "A stone castle on a hill." S312: "It leads nowhere." S313: "A single bright light in the darkness." S314: "Ugh, what a nasty bright light. Good thing you'll never go there." S315: "There's less to this card than meets the eye." S316: "Andromeda chained to a rock on the sea-shore." S317: "What an ugly girl! Bet she's good for a laugh though." S318: "It leads nowhere." S319: "It shows a great many crystal-glass cups and glasses." S320: "An old administrative office of the museum, emptied and made into a prison cell: amateur but effective." S321: "There's definitely no way out of here." S322: "Just a crook. And what's wrong with crooks, that's what I say." S323: "The door to the south stands open." S324: "As you might expect, the cell door is closed." S325: "This is a city side street, but as if seen through the grey of despair. People stream by, some of whom you almost recognise, as if dead. The street runs east-west, and to the north is a doorway into a grubby tenement building." S326: "This shambolic flat, which extends to the east, shares a filthy hallway with the one upstairs. To the south, passers-by pass by along the street. Peeling-away posters have been stuck up on top of each other on the walls, in such a way that you can only read the most recent." S327: ""Bateaux Phlebas - toujours le dernier mot". You briefly wish you had a dog called Toto, so as to be able to say "Toto, I've got a feeling we're not in England any more."" S328: "What a very useful piece of paper. Pity there's writing on it." S329: "Flats occupied by starving-but-noble artists can be romantic and stylish despite the squalor. This one, however, is simply a one-room hovel, caked with paint, littered with brushes and improvised easels, and you can't help standing on tiptoe here." S330: "The stairs end at a shabby room, with screened windows, lit by incense sticks and sevenbranched candelabra. A doorway with a hanging bead curtain leads west. In the centre of the room is a table, on which is an electric bell push and a wicked Tarot pack." S331: "She has a bad cold, but nevertheless is known to be the wisest woman in Europe." S332: "Hood, scythe, skeleton, implacable grin: yes, it's the Reaper all right." S333: "It's vital you slide right along with this one." S334: "Don't worry, he won't slide down the cliff." S335: "The Fool is a man looking directly ahead as he steps off the edge of a cliff." S336: "He's one of my colleagues now, of course." S337: "Those are pearls that were his eyes..." S338: "Shoddy workmanship, but never mind, it's only a staff and who needs those any more?" S339: "Down at the end of the street, the brown urban waters carry by unpleasant rubbish, and rats scuttle up and over the mounds washed up around you." S340: "People had no style in those days, before they invented paper tissues. I mean this tatty cloth wouldn't attract anyone, would it?" S341: "On one especially repellent mound is, of all things, a fine silk handkerchief." S342: "Monogrammed J. A. P., but that's no great matter." S343: "The side reads: PHLEBAS." S344: "Moored close to the bank is a glass-roofed tourist boat." S345: "On the far bank is a glass-roofed tourist boat. As much as you like to explore, you can't see how to attract its attention." S346: "A tourist river-boat, glass-roofed. You can climb out to the shore to the east. At the helm is a very strange man, at times almost a straw dummy, almost perhaps a hollow cut-out made of paper. He (or it) turns the wheel and casts his eyes to windward." S347: "Every now and then he whimpers." S348: "The hollow man mechanically says: "Where to, guv'nor? Me with my big mouth, I gone and done it again, calling you the guv'nor. I was down Margate Sands way once, had a bloke come on board, he thought any old destination would do, like a real place, like anywhere was real... We are the hollow men, I says, he didn't like that... Hurry up, please, it's time."" S349: "A dry, desolate waste of buildings borders here on a main road, so full of black-suited pedestrians off to work at banks that you can't force your way any further east. Once in a while a few of the bowler-hatted army step into the street and down some steps below a Metropolitan sign." S350: "You can't force your way through the tide of bankers." S351: "This is a vast underground station in great rectangular caverns, deep beneath the streets. You are outside the ticket gates, near a flight of steps back up to the city, and since you haven't a ticket you're likely to stay that way." S352: "Back up the stairs for you. Call yourself a traveller..." S353: "Behind a kiosk, a surly-looking man is selling guide books and maps." S354: "His jumper is unstriped, and there are no onions around his neck. Nonetheless he has a rather Gallic, disgruntled look to him. Perhaps he's a former Socialist cabinet minister." S355: "Burn it! Burn it at once!" S356: "What a very useful map! Now you can go on holiday." S357: "Just the way you remember yours having been." S358: "This crowded, bohemian cafe bears only a passing resemblance to the ruined castle of the Tarot card: the decor imitates castle walls and arrowslits. You find yourself sitting at a table for one in the centre of the cafe floor. It is noisy, bustling and cheery, and a string quartet plays Strauss under the chattering of German voices. Your chances of attracting a waiter are very slight." S359: "The crowd is lively and exciting, but also inconsiderate and bulky." S360: "It contains a timer-detonator, a bundle of plastic explosives and many, many wires. The most obvious ones are green, red, blue and black. They would pull out of their loose sockets in the timer easily, so perhaps this bomb disposal nonsense isn't as tricky as people make out." S361: "Taped loosely to the underside of the table is a complicated-looking bomb." S362: "Time flies down here, you know. Eternity simply breezes by." S363: "Good photographic gear that. You didn't get it from a... well, a bomb, I hope." S364: "This basement room is filled with crate after crate of glasses and cups, enough for an entire hotel, or restaurant perhaps. Almost anything might be hidden among them. A little light comes in from an opaque skylight which is at street level outdoors. There is no way out of here, since the only door is shut tight." S365: "There's no apparent way out of here." S366: "Old, unwanted, dusty, empty." S367: "The great challenge, of course, is to get a ship inside." S368: "An unlabelled whisky bottle, laid on its side and mounted on a wood plaque, lies deservedly unwanted on one of the crates." S369: "Oh, well done! Why not take a closer look, you deserve it?" S370: "Within the whisky bottle is a model sailing ship, far too large to have passed the neck." S371: "The great challenge, of course, is to get it inside a bottle." S372: "A superb model sailing ship, about six inches from prow to stern, immaculate in every detail from an anchor on a filigree chain to a carved mermaid up front." S373: "The great challenge, of course, is to get it inside a bottle." S374: "A tightly-folded bundle of sticks, about six inches long, with a filigree chain and anchor hanging from it." S375: "A rough rocky sea shore below barely-climbable cliffs, against which an inviting deep blue sea laps. It seems to be early morning, soon after dawn, from the look of the sun on the water." S376: "The rocks are too dangerous. You'll have to scale the cliff." S377: "Chained to the cliff face is the beautiful Andromeda, looking nobly out to sea as she awaits her fate." S378: "Andromeda's" S379: "A long clasp of amber, perfect for long straggly Greek hair." S380: "Mmm... it still has her perfume on it. Hehehehe. Bet she's dead now." S381: "On top of some exposed cliffs on the Mediterranean. A dangerous slither down leads on one side to the shore, all other ways down being even more hazardous. Atop the cliffs is the Pharos tower, a round stone pinnacle lighthouse, but there is no way in from here. A grassy walk leads east, and a narrow crack leads southwest into a cave mouth." S382: "There's only dull grassland that way." S383: "A long clifftop walk by the sea, from the lighthouse to the west to the village not far east. These fields are occupied by herds of hardy mountain goats, continually butting each other and frisking. To the south a path leads across sparse grassland to a great outgrowth of some kind." S384: "There's only dull grassland that way." S385: "The rather sparse rolling landscape is dominated here by a massive, and suspiciously unnatural, wall of thorns, which forms a great ring about an area perhaps a hundred yards in diameter. There are goat pastures to the north." S386: "There's only dull grassland that way." S387: "A ragged gap in the wall has been burnt out to the south." S388: "The wall rustles and clashes its thorns like a beast alive." S389: "It's hard to imagine what could possibly shift a wall like that." S390: "Here inside the thorn wall, a north-south path leads across sacred earth into the imposing marble Temple of Zeus. You feel distinctly uneasy walking on such hallowed turf. There are any number of myths about gods getting cross about that sort of thing." S391: "The wall of thorns hems you in." S392: "The beautiful candle-lit Temple of Zeus, a cavern of marble pillars which is quite empty and featureless save for the entrance at the north. So much for all the rumours about hoards of treasure - it looks as if Zeus (who is, by the way howling with anger outside) was bluffing all along. Cloisters lead southeast and southwest, deeper into the temple." S393: "one" S394: "On one side, a man's face: on the other, a symbol, I. One obol, or one-sixth of a drachma." S395: "This currency is only valid in ancient Greece. Where on earth have you been?" S396: "A long walk along the cliffs from the lighthouse leads naturally here, just outside the Eraina Taverna, whose open doorway lies to the south." S397: "There's only dull grassland that way." S398: "Only a small, thorny, unclimbable fig tree." S399: "A plain but cheery taverna, fill of miserable and rather ashamed men who are drinking retsina heavily. The day is dawning outside the north door, but they strangely do not share your uplifted feeling at the sight." S400: "The tavern entrance is to the north." S401: "A speciality dessert of the Taverna: ice cream, kateifi, raspberry sauce, cream. An acquired taste." S402: "Left untouched on one table is an Ekmek Special dessert." S403: "Better with chocolate ice cream, I think." S404: "Doesn't somebody else need this more than you?" S405: "Morose and unconvivial at the best of times. This is not the best of times." S406: "Behind the bar, a depressed bartender polishes glasses." S407: "You stand atop a pinnacle of stone, on an early Pharos, or lighthouse. Considerately enough, the builders have provided a spiral staircase down. In the centre of the pinnacle is a marvellous device of polished bronze mirrors, its open end pointed out across the bay. " S408: "Being a lighthouse, this pinnacle is way up in the air. Point taken?" S409: "A brown-tinted frieze, depicting hunters and spear-carriers, surrounds this dark stair-well, which has no exit except for a spiral staircase leading back up." S410: "This is a murky hillside cave, whose mouth opens to the northeast, though a tight squeeze might lead a little way west. Outside is a clear starry night. There is no traffic noise, and the air smells fresh." S411: "Hanging up on an iron bracket is a flaming torch." S412: "It is a summary of the writings of a polemical monk called Gildas, and relates to events following the fall of the tyrant Vortigern at the turn of the fifth century A.D. After dark decades of pillage by Saxon mercenaries, Britain was reunited by Ambrosius Aurelianus and then defended at the Battle of Badon Hill, some time in the early years of the sixth century. This remarkable victory was of no religious significance, so Gildas does not dwell upon it. He tends only to mention bad kings and leaders, and then chiefly to insult them. (Talking about Gildas is an excellent way to annoy an Anglo-Saxon historian.) Nobody even knows where Badon Hill is any more, or anything else about it, although some students of Welsh poetry believe Ambrosius was the source of the legend of King Arthur." S413: "An uncomfortable spur of rock on the hillside crags. The only natural access to this spot is a crevice in the hill to the east, but there is also a securely fastened rope hanging down into the darkness." S414: "The crags are too precipitous." S415: "You are hanging perilously on a hemp rope, suspended from an overhang of rock above, which drops down into the darkness of the valley. On the tracks below, patrols of men can be heard, and you feel instinctively that they are not friendly." S416: "Up and down are it, quite frankly." S417: "A single yellow daisy grows from a little tuft of grass on the crags." S418: "The geography is strangely familiar here. You are on a natural shelf on the hillside, overlooking the valley below. An all-but invisible cleft in the rock leads to a cave to the southwest, and the slope can safely be traversed to the east. It is a brightly moonlit night, cool as in late spring. There will be a sharp frost tomorrow. Down in the valley, a great cartwheel circle of camp fires illuminate some dark shapes, perhaps crude encampments. There is no other sign of civilisation." S419: "The hillside is too steep." S420: "You stand beside a Roman villa, whose columns cast shadows of an Empire in the moonlight. It is thirty years since the fall of the West, and Britain is cut off from the continent, where soon even the existence of the Anglis will become a myth. This villa has survived the pestilence and devastation of the civil war, and although it must be a couple of centuries old, it is still standing. From here you could cut across the hillside east to west, or slip in through a none-too-secure timber door." S421: "A stream runs past the villa and cascades down the hillside here, to join the river far below, near the Roman road which will, in 1500 years time, become the motorway which so spoils the view from your back garden. A rough ladder of wood lashed together with leather rests against the villa at the lowest point of the tiled roof." S422: "The shadowy cloisters of the villa's atrium. You disturb a fieldmouse, and hear the scratching of tiny claws on stone. Moonlight filters in from the central courtyard to the south, and a rotten timber door leads back north." S423: "Resting against one pillar is a horn made from a tusk, mounted on a long spear-like pole." S424: "The central well of the villa, ringed with columns. On the north side is a cloister and stone-linteled doorways lead east, south and west. The central floor area is commanded by a beautiful Roman mosaic, quartered into individual scenes, around the edges of which are vents from the hypocaust. There is no roof over the courtyard, and the atrium is lit by moonlight." S425: "The four quarters show white-beards in the Forum, farmers in Italian fields, a military fortification and a grain ship unloading at Ossia." S426: "Whatever function this spacious room once had, now it is evidently home to military men, for it is filled with crude armour, spears, rough blankets which are little more than animal hides. Fortunately for you the guards are absent." S427: "A crude six-sided die made from animal bone." S428: "a pair of" S429: "What was once the villa's triclinium, or kitchen, is now deserted and long since ransacked for metal. (Nobody lives on their own in this century, and this villa wouldn't be easy to defend.) A doorway to the east gives onto the atrium." S430: "The well has a hinged wooden cover. You can't tell by looking how deep it is." S431: "The hinged wooden cover is raised, revealing a circular well about a yard in diameter. It is very dark inside." S432: "In one corner is a hinged wooden cover of some kind, which is shut." S433: "You are clinging perilously to the walls of the deep and dangerous well. You can hardly see a thing, even with the aid of the torch, but curiously enough you feel warm air blowing across you from the east." S434: "Too risky. There might not be anything that way, for all you know." S435: "This very low almost-cellar underneath the atrium is a tiny access space for log fires which are kept going to provide a form of central heating for the villa. They are lit and going away nicely, interestingly. It isn't very warm by twentieth-century standards, but you have to admit it works. A tiny amount of light filters in from the vents in the roof; just enough to see by. The only way in seems to be the way you came." S436: "The log fires are hot, and anyway the only way out large enough for you is back west." S437: "A well-flagstoned forecourt at the villa entrance, surrounded by lesser wooden buildings. Some of these are in use as stables, and figures of men slip between them. You hide from sight, not wishing to draw attention to yourself. Up on the hill, where Meldrew Hall will one day be built, men on horseback can be seen circling the access track. For a deserted villa, this is certainly well-guarded." S438: "Well, here you are, imprisoned again. This time the cell is a tent of stitched animal hides, perhaps twenty feet in diameter, supported by a central pole. You have no idea where the entrance is, because you were blindfolded on the way in. There is at least a dim light from the camp-fires outside the tent." S439: "This tent doesn't seem to have an exit, either." S440: "He is dishevelled, wiry and unconscious. He is also covered with dust and leaves, as if he has been lying down on his front outdoors for hours." S441: "An unconscious Saxon spy is slumped on the ground. Occasionally faint noises can be heard from him." S442: "Luckily for you the tent, now collapsed, was hardly being watched at all, because all the attention is diverted to a ghastly ritual being carried out over beyond the camp-fires. But your luck cannot hold for long. You are so surrounded by hostile territory that you simply have nowhere to run or hide. Things are, not to put too fine a point on it, looking grim." S443: "Far, far too risky." S444: "An erratic glacial rock, which seems in the feverish firelight to make a natural dolmen, can be made out to the east, on the other side of an almost-extinguished campfire of hot coals." S445: "You stand beside the eerie dolmen, surrounded by the terrible noises and incantations of a druidic rite." S446: "Far, far too risky." S447: "I wouldn't wave that around if I were you!" S448: "Resting on top of the dolmen is a polished blue stone." S449: "Hell, you always imagined, would contain fiery, sulphurous pits and a great many gentlemen with forked tails. You were right about the last part. A demon is sitting behind a flame-proofed desk at the bottom of the stairs. There are some disconcerting screams from further away, but nothing to worry about. Not in this life, anyway." S450: "That direction is not for the living." S451: "If you were to cast a film of your adventures so far, you would hire Donald Sutherland to play this gentleman." S452: "Heaven, you always imagined, would be a world of marble pillars, fluffy clouds, harps and angelic ladies with serene expressions. You were right about the last part. An angel is sitting here behind some new office furniture, next to a blue Tourist Information sign. A bridge of cloud extends south across the sky to the beanstalk. There is some choral singing going on somewhere, but not loud enough for you to hear properly. Not in this life, anyway." S453: "That direction is not for the living." S454: "If you were to cast a film of your adventures so far, you would hire Dame Judi Dench to play this lady." S455: "N to servants, ne to writing, nw to in cupboard, e to passage, w to octagon, se to temple, sw to taverna, s to museum, u to hall, d to yet more." S456: "e to heaven, w to behindh, n to lair, s to prow, d to palace, u to intomb, ne to jetty, nw to birdcage, se to inchurch, sw to c and g." S457: "There is a long vanity mirror beside the bed." S458: "(Aunt Jemima has two cats, Jane and Austin, but she finds Austin especially annoying - about the only point you have ever agreed with her about.) Austin, a ginger with a long tail and an uncompromisingly lazy expression, is the kind of cat who hates being pushed around." S459: "Austin, your incorrigible ginger cat, lounges around here." S460: "A strangely familiar, dusty passage, sloping down from a southern end bathed in hostile light to some kind of metal barrier in the north." S461: "Flurries of green luminescence whirl endlessly around you, west to east and over." S462: "Your ghostly self is embedded in a diagonal downward shaft (descending to the east) entirely filled with dry sand. Solid flagstones line the walls." S463: "Flaming torches bracketed in the wall gutter as the last oxygen in the air is consumed, and the flicker of flame plays across the yellow-orange glaze of the tomb walls. This octagonal chamber is lined with Egyptian hieroglyphics. Sand spills across the floor from under the sole entrance, sealed by an ingenious stone slab." S464: "A kind of ship's wheel (of eight-spoked timber) is affixed to the northwest wall." S465: "A flight of sandstone steps, cut in the 1920s when an Egyptological craze was sweeping England, slants down from the coal-dust passage to the east." S466: "A broad, dark octagonal room devoted to dull exhibits of the disastrous Nile Valley Expedition of '21 - the few good ones were donated to the British Museum. A back staircase leads west to the unbuilt extension, while the entrance seems to be the cobwebbed passage southeast. High windows on the northern face let in dim light." S467: "The only exits are via the southeast passage and the back staircase." S468: "There is a little window-vent high in the southwest wall." S469: "You can just make out an impression of cellars." S470: "A little charcoal sketch is framed on one wall." S471: "Behind the frame seems to be an artist's impression of the great Palace of Alexandria as it might once have been." S472: "It's the frame which really sets it off." S473: "Charcoal is so unrealistic, don't you agree? Besides, it's far too large and clumsy." S474: "A miniature artist's impression of the great Palace of Alexandria as it might once have been. (No, the impression is miniature, not the artist.)" S475: "The ravings of a madman. Ignore it." S476: "A placard claims there is an interesting inscription on the inside of the lid." S477: "A rather morbid, gilded model coffin rests here in peace." S478: "Leaned against one of the eight corners is a ragged white parchment scroll." S479: "What taste! What artistry!" S480: "A lamentably naff tourist's gift, this seems to be a "replica" of one of the papyri on which some lost Greek play or other was written. Some nonsense about the priestess of Apollo being summoned by music, etcetera. It has all the charm of a tea-towel of, oh, say the Taj Mahal made out of curry." S481: "An annexe to the museum, containing sundry archaelogical finds, badly labelled in German (which you can hardly read at the best of times) and securely pinioned inside glass cabinets. The storm outside thrashes against the narrow dark windows." S482: "One cabinet looks particularly vulnerable." S483: "A smooth palm-sized disc, perhaps of pumice stone, painted in yellows and browns with a single star motif, around which (clockwise) are the words "nog", "er", "ska" and "iw". If you remember the label rightly, something funny has been done to a piece of metal embedded in the top, but your German isn't up to understanding what." S484: "Doesn't the shape strike you as familiar at all? - There, that should point you in the right direction." S485: "You need more evidence before you can begin deciphering the language, I fear." S486: "Only one line has survived intact: . an-spe : ska er nog-er an-ge : to-ro-ma ka ur Al-x-an-dr u bir ka ur-a an-ge ur" S487: "A low, white hallway adjoining the Octagon, converted from what was once the scullery and the servants' pantry. A tight, dark staircase runs up and south; and a diagonal bricked path runs out northeast to the gardens." S488: "A deep old elephant's-foot umbrella stand." S489: "There's an old-fashioned elephant's foot umbrella stand beside the garden doorway." S490: "A copy, half-size, of the one from Tutenkhamun's sarcophagus. It isn't real gold, either." S491: "Of no use to anyone these last two thousand years, sorry!" S492: "Up on one wall is a picture hook." S493: "You're strolling on a pleasant bricked path, passing from the outer rooms of Meldrew Hall to a track through the eastern side of the garden." S494: "Do you think there's anywhere in the garden particularly suitable for such an implement?" S495: "Hanging from a hook is a bladed agricultural implement." S496: "Named by some family wag generations back, this is a restful hedge garden, crowned with a summer house to the north, widening out to a broad croquet lawn east." S497: "A flock of sparrows crowds around the gutters of the summer house. Every now and then one flits up and lands somewhere else, and they bustle about chirpily." S498: "An old wooden summer house, reeking of varnish and uncertain beneath your feet. Several segments of the tall glass many-sided pyramidal roof are missing and others are cracked, but this is still somehow a homely and welcoming retreat. The only entrance is also the only exit." S499: "Croquet is the Devil's own game!" S500: "It's for mashing croquet potatoes." S501: "A croquet mallet stands by one wooden wall." S502: "How easily are the weak mesmerised by baubles." S503: "It is beautifully polished, and captivates the eye. You could stare for hours..." S504: "Something golden hangs by a chain from a loose pane in the roof, but it's too high up to reach." S505: "Splendid, you're having a ball. I do hope you hit it off." S506: "A hard wooden ball, palm-sized, rolls about across the mosaic." S507: "Among dense hedges by the shabby wood-slatted back of the summer house. Dark scratchy branches hem you in, but you could scramble down to the west or out onto the croquet lawn southeast." S508: "You could easily squeeze past the loose board south into the summer house." S509: "One board of the back wall is noticeably loose, making a good-sized crack." S510: "Through the crack you can see the summer house." S511: "your" S512: "Not at all shy when on his own territory." S513: "One of the most beautiful hedge-enclosed, tree-muffled lawns in England, and just out of sight of the house, this has been a jewel in the gardens for centuries. Since the twenties it has also been a croquet lawn, of the regulation twenty-four yards square, laid out with a central coloured peg and six peripheral hoops." S514: "The lawn is enclosed on all sides, but for a gap back west." S515: "There are six arched hoops in a croquet set, arranged around a central peg. These ones have been safely anchored in place since the lawn was laid out in, oh, Midsummer 1923 if family lore is to be believed." S516: "A good strong strongbox, buried for two centuries and now unearthed; it bears a fine gothic iron lock, and a tasteless coat of arms (a wild boar rampant)." S517: "You might have read about this. One of your ancestors is the key, perhaps?" S518: "A very old instrument for measuring altitudes, this is all that remains of Sir Joshua Meldrewe's stolen hoard of gold. There is an eyepiece." S519: "A mighty fine instrument, though not much use hand-held." S520: "The rich loam, the silver of earthworms, the dignity of toil... none of these pastoral sensations is yours as you scrabble in the dirt." S521: "Some vandal has dug a hole in the lawn." S522: "This dark, steep staircase zigzagging through the house once gave the servants access throughout. But those days are long gone and now all the doors are locked up." S523: "The east cloister of the Temple, which turns from northwest to southwest, is bare but for a small niche." S524: "an" S525: "Resting in the niche is an inscribed pumice stone, two feet tall." S526: "Whoever wrote this must have wanted to get the message across very badly, to write it all out twice." S527: "Along the west cloister, turning from northeast to southeast, is a broad bas relief depicting the seasons: the planting of seed, high summer, the harvest, floods and then the coming of ice." S528: "A curious symbol is repeated along the top of the relief." S529: "Here from the dark heart of the temple, cloisters fork northeast and northwest while a flight of narrowing steps lead down and to the north." S530: "The blind poet Homer half-slumbers here, clutching his syrinx (or Pan-pipes) to himself." S531: "Homer is wearing a Columbo-style raincoat." S532: "the" S533: "Marvellous! A sound to soothe the spirit." S534: "Carefully cut from river reeds, these once belonged to Homer himself. As you may recall." S535: "The fabled Labyrinth seems only to consist of a broad cross. Arms run to northeast, northwest, southeast and southwest, while a flight of stone steps widens and climbs south." S536: ""ka-i ur-a re-im ka an-ge"" S537: "There are extremely scuffed and faded inscriptions at the centre of the cross." S538: "Beside the inscriptions is an opening in the floor, about two feet square." S539: "A foul, musty bone pit, beneath the cross, where sacrificial victims were once dropped and "forgotten"." S540: "Lying on top of crushed, broken bones, in plain view, is a gleaming gem of amber." S541: "Embedded within is the body of a fly. Scratched upon one face is the word "GALITA"." S542: "Isn't there some classical legend about her?" S543: "This cross-corner is inlaid with carvings of fish, of the waves, of great casting nets sweeping through the water. The Labyrinth lies to southwest." S544: "This cross-corner is surrounded with carvings of wheat swaying in the breeze, bathed with sunshine. The Labyrinth lies to southeast." S545: "This cross-corner is decorated with carvings of massed ranks of hoplite warriors, advancing into battle. The Labyrinth lies to northwest." S546: "This cross-corner is decorated with carvings of grape-vines and barrels. The Labyrinth lies to northeast." S547: "A fine statue of the god Poseidon stands here." S548: "A fine statue of the goddess Demeter stands here." S549: "A fine statue of the god Ares stands here." S550: "A fine statue of the god Dionysus stands here." S551: "A dry cave opening from a crack to the northeast, becoming a fair-sized cavern, furnished with bronze and lit by trestle lamps chained from the ceiling." S552: "the" S553: "The Oracle, the masked priestess of Apollo, stands here behind an obsidian altar-stone, three cubits cubed: to her side is a bronze urn, mouthing perpetual flame." S554: "the" S555: "The altar stone, sometimes called "Omphalos" or "the navel", bears an odd cross or plus sign and is fabled to mark the centre of the world. Around the side of the urn are reliefs of feasts, of oxen being tracked and sacrificed, of the gathering of fruit and the making of cheese." S556: "Legend has it that the Roman emperor Augustus was killed by his wife, who painted the figs on his tree with poison. Somehow, this legend rather puts you off your appetite, though actually it's a perfectly nice piece of fruit." S557: "Hanging from a low branch of a fig tree is, as you might expect, a fig." S558: "Good enough for a god." S559: "You can ask a god for a date, but they just don't give a fig." S560: "At the foot of the Hall, where wistaria climbs a desperately rickety fire escape, is the drive, a long gravel lane approaching the house through trees. Since your family are intermittently loading suitcases into the car, which only makes you feel guilty, the only safe way to creep away is along the public footpath, to northeast." S561: "Better not - they might catch you." S562: "By a stile in the public footpath across the fields to the village, which lies to the north. Sitting on the stile you have a splendid view of the house and its battlements. The air is ablaze with pollen and dragonflies. It might be possible to scramble down to a hollow, but it surely wouldn't be pleasant." S563: "The footpath turns from southwest to north." S564: "A low, muddy, stinking hollow, trodden with reeds, dried out in the long summer and no more than moist now. You could climb back up, or go northwest, though that would mean crawling through a thorny hedge." S565: "There's a bird's nest at the bottom of the hollow." S566: "A bunch of nuts, left over from last autumn." S567: "Do you know, I love nuts, but I have to be so careful what I eat now... Still, the little ones will have them." S568: "Nuts to you too." S569: "Entwined in the nest is a bunch of nuts." S570: "And sat upon it is, as you might expect, a bird: a corn crake, in fact." S571: "A rail with a distinctive cry. And a possessive look." S572: "Beside the long triangle of the green, under the stone cross of the First World War memorial. The public footpath runs south to a stile. The village is tiny: the parish church, the "Goat and Compasses" pub (which, owing to quaint English licensing laws, is closed) and a few houses and desultory tea-shops for tourists visiting Meldrew Hall." S573: "You wander around the peaceful green for a while, but there's nothing to do." S574: "Old Evans, the village racing enthusiast, sits on the steps of the memorial, combing the back pages of his "Racing Times" newspaper." S575: "In the band of his hat is his lucky mascot: a little picture of the crescent moon." S576: "The monkey sits on Evans' shoulder, cheeping with excitement. Evans has found a pet, and is so gruffly delighted that he has forgotten all about the mascot you stole. Now if he could only predict the 3.40 at Borchester Mills..." S577: "Some kind of crescent moon, an old Druidical symbol." S578: "It leads nowhere." S579: "The front page story ("Lord Lucan's new acquisition Shergar comes out of retirement to win the Grand National") is so boringly unsensational that you quickly lose interest. But Evans is eternally fascinated with minute details of the form of the horses, tomorrow's race meetings, current odds quoted by the bookmakers, and so on." S580: "Racing afficionados consider it lucky to wear mascots in the bands of their hats." S581: "The stone cross, for the fallen of the Great War of 1914-18, contains more names than there are houses in the village. Somehow, your eye is caught by Second Lieutanant Gerard Meldrew of the 19th/21st Rifles, and you shiver, although the afternoon is warm." S582: "The fourteenth-century Church of St Michael and All Angels doesn't seem to be locked up, exactly - just barred from the other side." S583: "In the days of Oliver Cromwell, it was called "God Encompasseth", but the locals have worn down the name over the centuries to "Goat and Compasses". It is of course closed, owing to the licensing laws. You congratulate yourself on living in such a modern, forward-looking country." S584: "Before this was the Norman church of St Michael and All Angels, it was a Saxon one: this is an ancient site. A great space of stone, filled with dark wooden pews and woven mattings. Flowers left over from Sunday grace the lectern and altar. A narrow stair leads upward, and the village green lies to the south. Old side chapels lie east and west." S585: "the" S586: "A passage slants down through a solid crystal doorway in the Moonstone." S587: "Set into the floor, and slightly raised, is the Moonstone, an ancient broad flagstone the size of a door, inscribed with a crescent moon." S588: "The Moonstone is very old, probably pre-dating the rest of the church by some centuries. Legends about it abound: some say the spirits of the departed pass beneath. Old iron rings are set in it, but nobody has ever succeeded in lifting the colossal weight." S589: "An alcove in the ancient west side of the church, beneath stained glass windows of the Resurrection." S590: "The church lies east." S591: "an" S592: "The statue is half-skeleton, and you can see clear through the bones." S593: "the" S594: "The knight is bursting and eager with life, as though nothing could fade his boundless energy for existence." S595: "The adamantine knight stands staunchly here." S596: "A small clear space to the side of the church, in a bay ringed with stained glass windows of the Nativity." S597: "The church lies west." S598: "A tall marble statue of Diana stands here: a find from the nearby Roman remains." S599: "There is a sly look in her eye as she smiles aslant." S600: "The bell-ringing chamber, half-way up the church tower. Thick braided ropes hang down, tailing into sashes. A plaque on one wall announces that in 1901, ten men (Roger Meldrew among them) rang a Kent Triple Bob." S601: "There is a beautiful view over the green parceled farmlands and hills surrounding the village, and you feel a certain pride to see Meldrew Hall sitting amongst it. It's also windy and dangerous up here on the grey lead spire of the parish church, beside the old clock: fortunately an opening leads down into the clerestory." S602: "an" S603: "Like a solid glove. It reminds you oddly of one of the symbolic pieces in Monopoly - the ship, the car and so on." S604: "There must be more to this marvellous figure somewhere." S605: "Mounted loosely on the end of the weathervane, an adamantine hand points the way the wind blows." S606: "The clock stands at ten past three, as it has done for some years. According to a small commemorative plaque, it was the work of William Snelson the Clockmaker." S607: "A warm winter's night in the ancient city of Alexandria, on the Heptastadion causeway across the harbour to the Island of Pharos (to north). The Mediterranean waters lap against the land bridge, and the whole city (southeast) is lit up with torches: it is a night of celebration." S608: "The island of the Pharos: the lighthouse after which others are named, one of the Seven Wonders of the World, blazes into the sharp moonlit sky. It is 120 metres high, a circle on an octagon on a square. A light wind blows across the coastal defences. On this spot, seventy-two scholars first translated the Old Testament into Greek: shivering continuously if it was as chilly as this. A narrow causeway runs south across the harbour." S609: "The causeway is the only land route off the island." S610: "A rusty seaweed-wreathed iron grating lies open here." S611: "In one wall of the wave defences is a rusty seaweed-wreathed iron grating, closed up tight." S612: "Interestingly, a key which looks as if it would fit the grating can be seen inside the passage beneath." S613: "Oh dear, surely it's gratingly obvious what this fits?" S614: "Down on a dark stone jetty, where the waters of the Alexandrian harbour splash insistently. Rough-hewn steps rise up the island through the grating." S615: "A skiff (a small sail-boat) is moored up here." S616: "You could easily sail away: where you would end is at the mercy of the tides and the night breeze, since you have no idea how to guide a rudder or trim a sail." S617: "an" S618: "A cardioid of the kind favoured by Valentine's cards rather than surgeons. It reminds you oddly of one of the symbolic pieces in Monopoly - the ship, the hat and so on." S619: "There must be more to this marvellous figure somewhere." S620: "An adamantine heart lies in the skiff." S621: "As the skiff passes the jaws of the Royal Harbour, beneath the great Pharos light, you have a final view of the receding civilisation of Alexandria: ahead lies the vast, oil-calm Mediterranean and moonlight on the waters." S622: "The skiff is not under your control." S623: "You drift in the wide, peaceful Lunar sea. Curious fish, their yellow-green eyes gleaming beneath the silver ripples, brush past your wake: the night zephyr is almost slack but still you drift. Minutes pass like hours in paradise." S624: "You feel only a drug-like calm." S625: "The great crossroads at the heart of chlamys-shaped Alexandria, greatest city of the civilised world. The northwest-southeast road runs from the causeway to the Tower: the main road runs southwest from the Necropolis gate, northeast to the great public buildings of the city." S626: "A spacious, sombre, moonlit and magnificent valley of tombs, some brand new, just outside the walls of Alexandria (to the northeast). Already it is ancient. Most of the little termite-hill style pyramids have been invaded time after time: indeed, one pyramid's entrance gapes open to the south." S627: "This is no place to wander after dark." S628: "Birds of prey circle high in the night sky, their talons glinting in the moonlight." S629: "You stand near the unexciting tombstone frequented by the birds of prey." S630: "You stand near the tombstone, which has become rather more interesting now that a flight of steps downward has appeared." S631: "It bears just one word of epigram: "GALITA". Below that is a curious face, with an open empty socket of a mouth." S632: "A cloak of many colours lies folded on it." S633: "A fine cloak, grey-lined, sapphire-encrusted, rippled across with rainbow fabrics from the trade routes of the world." S634: "Are you sure it isn't inside out?" S635: "A fine grey cloak, sapphire-encrusted, lined with rainbow fabrics from the trade routes of the world." S636: "Are you sure it isn't inside out?" S637: "This is not the famous Alexandrian tower (which is not due to be built by the Emperor Domitian for centuries), just an anonymous little monument on the same site. It is square-cut inside and there's only a small exit northwest." S638: "The heavily defaced door opens onto a staircase up." S639: "In one wall is a door heavily defaced with writings, the same word, over and over in a hundred tongues and scripts: the word "Sosostris", in fact." S640: "The stairs end at a shabby room, with screened windows, lit by incense sticks and sevenbranched candelabra. A doorway with a hanging bead curtain leads east. In the centre of the room is a table, which is bare." S641: "Madame Sosostris stares at it fixedly as she meditates." S642: "Unmoving." S643: "Known to be the wisest woman in Asia Minor." S644: "Madame Sosostris, famous clairvoyante, meditates here." S645: "It needs to be left to mature, and yet there's something awfully familiar about it." S646: "You seem to have dislodged one of the wooden beams used by the tomb's builders: a useful length of greenish oak." S647: "Perhaps it could be put aside for later use." S648: "Ready to use." S649: "For me? Oh, you shouldn't have... oh, you didn't. Well give it to someone else then." S650: "A silver locket on a thin chain, with a heart-shaped picture of a knight placing a rose in his lady's hair. Quite nauseously romantic." S651: "A perfectly-cut room of rose-coloured granite, twelve feet across, painted in yellows and browns to simulate alabaster panelling. This is the latest in modern funerary apartments. There's a couch for visitors, a table, a flight of steps up and a doorway to the west, flanked by two stone sphinxes." S652: "No grave would be complete without one." S653: "The sphinxes seem to stare balefully at you." S654: "One of the sphinxes does have rather a prominent nose, it must be said." S655: "Splendid." S656: "A comfortable-looking wooden couch, covered with weave matting." S657: "The passage, descending from the east down to the west, is cut from marble, lined with painted scenes from the fashionable comedies of Menander, decorated with Alexandrian coloured glass ornaments. The expression "You can't take it with you" doesn't seem to be popular hereabouts." S658: "Just an east-west passage." S659: "You simply can't bear to look. It might be a monkey... at least it has a tail... No. No, you have to look away." S660: "Despite the tasteful decor, the most hideously ugly model animal you have ever seen sits on a little shelf here." S661: "Oh dear." S662: "Exquisite. Simply charming." S663: "The passage opens out onto the burial chamber below." S664: "Unfortunately, the passage slants down only into a solid marble wall." S665: "A perfectly-cut room of rose-coloured granite, twelve feet across, painted in yellows and browns to simulate alabaster panelling, at the foot of a flight of steps which leads only to a sealed wall." S666: "No grave would be complete without one." S667: "Stone sphinxes guard the west doorway, staring balefully at you." S668: "The weave matting on the couch is now in some disarray." S669: "A comfortable-looking wooden couch, covered with weave matting." S670: "two" S671: "Two Napoleonic officers stand awestruck as light splashes from their lanterns over the riches of the tomb." S672: "The officers wear the uniforms of the Emperor's 1798 occupation of the Nile Delta, and carry fine brass lanterns." S673: "A really luxurious burial chamber, far beneath the entrance court. A yard-wide square channel runs away fractionally east of north, in an apparently endless stooped passage. On the west wall are three curious sockets, above a painting of a priest of the half-mythical pharoah Sosostris in full sceptred, grey-clad regalia." S674: "The passage rises sharply to the east." S675: "Drawn in the odd aspect favoured by the Egyptians, who believed in ideal angles rather than accurate drawing. The sceptre, only half the size of the large ones you once saw in the British Museum, looks oddly familiar. This close to the wall, you notice words written above the three sockets." S676: "Golden, kingfisher-blue, smoothly curved, immensely heavy, beautiful. And final, and dead." S677: "A beautiful gold and blue mummy case, or sarcophagus, rests massively here." S678: "Ransacked, dimly-lit, cramped and empty, this rough-built and uneven burial mound is to the Great Pyramids of Giza (built just a century before) what the summerhouse in your garden is to Windsor Castle. There are only dull painted writings, an unpleasant odour and a passage out to the north." S679: "One of the so-called Pyramid Texts making up the so-called "Book of the Dead". This dramatic passage seems to be devoted to wise men preparing their bodies to rise in the afterlife, anointing themselves with oil. An interesting motif of ten strokes, arranged III IIIIII I catches the eye." S680: "The main southwest-northeast road forks off with a road due north to the Theatre. Despite the kaleidoscopic din you are impressed with the sober majesty of the Museum of the Ptolemies, whose fine portico entrance, decked with reliefs, is southeast." S681: "Reliefs of the cat-god bestride the square-cut entrance. The fanaticism of the cult of the Cat in Upper Egypt has such a stranglehold that the image is everywhere. You remember reading somewhere that passers-by in the street have been torn to death before, just on suspicion of mistreating a sacred cat." S682: "The celebrated Library of Alexandria, finest in the entire world, possessed of hundreds of thousands of books: where the ruling Ptolemies keep fanatical, infighting scholars almost imprisoned as they turn out rival commentaries on the ancient poems - hence the nickname. There is a little door to the south; a dusty corridor southeast; a thoroughfare east, and a grand entrance northwest." S683: "There is a pigeonhole mounted on one wall." S684: "A depository for scrolls." S685: "Surely this is addressed to someone?" S686: "An open-ended hollow tube, marked with a Greek capital Alpha." S687: "Surely this is addressed to someone?" S688: "An open-ended hollow tube, marked with a Greek capital Kappa." S689: "Oh my. "I touch your... and the scent of you rises from... your beautiful..." I'd better not read the rest. Strictly for afficionados." S690: "All Greek to you, alas. Only a dozen lines or so, though." S691: "Oh my. Well, the plot, um, there are seven attackers, all with different shields, one for each of the seven city gates, and it's a civil war so of course the brothers are really in a duel and there are champions and the women are upset but it's all because of their brother who was really their father... Never mind. It's strictly for afficionados." S692: "All Greek to you, alas, running on for 1000 lines or more." S693: "This small, dark (by night) room is a repository for Library supplies: above all, for lamp oil, which is stored in broad shallow earthenware troughs. Lucky your torch is electric, when you think about it. Anyway, a passage leads back north." S694: "the" S695: "The rather neglected hall for the accurate study of geography: as opposed to the lurid travellers' tales preferred by most writers in this slapdash century. Nobody is working here, and one can only file back northwest." S696: "Protruding from a broken globe of the Earth (marked with very tentative and approximate maps) is the spindle, the only thing holding it together." S697: "Perhaps the best work of cartography likely for the next two thousand years, it seems unlikely the globe will last the next two hours." S698: "Don't go waving this about." S699: "A spacious, densely colonnaded corridor, its walls lined with inset shelves on which are scrolls beyond count, ribboned, dusty, disintegrating, badly catalogued so that only an expert can find what he wants." S700: "You wander through the columns, but can find no exit save the thoroughfare east and a little office south." S701: "endless" S702: "Even a single book may run for dozens of individual scrolls, and the titles are hard to interpret: anyway, most of the books are rubbish. Dewey decimal numbers are not due to be invented for millenia." S703: "The expert in question being Callimachus, who is brooding over a scroll, and hardly aware of your presence." S704: "Callimachus is famous for something or other. You wonder what..." S705: "Apollonius seems to have dropped a mystic scroll in the scuffle." S706: "We in the afterlife, um, have a policy of never commenting on leaked documents." S707: "Don't you believe it!" S708: "It tells that even the greatest mortal must choose of the three High [and the next word is illegible], for once and all, but that for each there is a way. The usual mystic nonsense." S709: "And Callimachus' purple shoulder-sash has come off." S710: "Worn over the shoulder." S711: "A tiny office adjoining the colonnades north, this is home to Apollonius the head Librarian, whose writing implements, table and sand-wells are scattered untidily about." S712: "Apollonius paces about self-importantly in a purple sash, perusing documents on his desk." S713: "His aim in life is chiefly to annoy Callimachus, his junior librarian and the modern poet he despises most." S714: "The great Stadium of Alexandria, with capacity enough to hold the whole population of the city: and it looks full. Olympic openings in the age of television have nothing on these people. The procession surges continually in, around the track and then out again, and amid the bustle you cannot push through." S715: "It would be easier to breathe back southwest." S716: "Tragically, the Theatre is closed tonight, but roads lead past the great stepped bowl: north toward the Palace, south to the Museum and west to the harbour-front." S717: "A hugely impressive edifice, and everything you might expect from the man who conquered the whole of Asia Minor at an age when most people are starting to think about getting a mortgage. There are of course guards, but they're trying to catch the procession, so if you're careful not to draw attention to yourself you could probably sneak in to the north." S718: "Scholars are divided on the origin of the "maze" legend: some hold that to a primitive culture, the Knossos palace was so complex as to seem a maze, and the king so fearsome as to seem a Minotaur. Others say the early palaces really were labyrinths to protect sacred altars. And you think it's because this is a maze of twisty little passages, all alike." S719: "Such a slave, a highly trained professional, stands at every intersection of passages in the palace. They are deaf mutes, to prevent them overhearing State secrets." S720: "A slave stands impassively by one wall." S721: "The magnificent balcony overlooking the Royal harbour of Alexandria. In two hundred years' time, Julius Caesar will be besieged here, and will hold the palace with a tiny force of men against an entire army: and will lose his heart to Cleopatra... For the mean time, this is a broad stone balustraded balcony. The coin-bright moon, low in the sky, reflects off the black waters far below." S722: "There seems to be absolutely no way off the balcony, as the stone doors to the heart of the palace are sealed shut." S723: "An impressive astronomical mounting stands on a tripod here. But there is no telescope." S724: "Down by the sea-front, in the old harbourlands, surrounded by warehouses. The Mediterranean laps darkly against the hard, splashing an occasional wave up the slope. The city, and the party, lie back east." S725: "There's nowhere to go but the city, east." S726: "A grizzled sailor sits at a harbourside table." S727: "An inscribed six-sided die lies on the table in front of him." S728: "The sides you can see are labelled with short words." S729: "There is a storm tossing the deck, one which drives no rain: you reel from one side to the other, hanging onto the rail, grabbing at the mast or the rigging. Nobody else seems to be aboard. The boat makes no headway in a strange, glassy mist. The mast rises dizzyingly high. You can't even make out the water below. A great pink haze spreads across the sky. With omens like these, who needs albatrosses?" S730: "The deck runs fore to aft (as all decks do)." S731: "Down might be a better idea." S732: "Coming up here must be one of your less inspired ideas. The mist is all around you, confusing your senses. Two pale, bluish moons hang in a pink sky." S733: "A flagpole juts out portwards from the top of the mast, far too insubstantial to bear any weight. From it hangs the ensign of the British Merchant Navy (which you could just reach the bottom of)." S734: "The flagpole juts out to port with the prevailing... wind?" S735: "The flag has fluttered to a heap on deck." S736: "Piece of advice - it's never very comfortable wrapping yourself in the Flag." S737: "Broad, heavy, scarlet cloth, halfway between a silken sheet and a carpet, with a cross and a Union Jack in one corner." S738: "You stand in the triangular prow of the ship, which is graced by a carved and painted figurine and named the "Lady Magdalena". There is no sign of water, but the boat is rocked too often for it to be aground. And the glassy mist hangs ahead." S739: "You can only go aft." S740: "Oh, you startled me for a moment there! I am getting flighty." S741: "In the Lady Magdalena's loose grip is a traditional sailor's good-luck token: a green-leafed branch, to attract the gulls of an approaching shore." S742: "The square stern of the ship looks out south, not onto receding waves, but to what seems a tunnel through dense, glassy mist. You can faintly make out an odd, pale reddish sand bank in the distance." S743: "The boat runs fore." S744: "The top of the anchor chain is wound around the capstan, a great wheel on the deck beside you. The chain disappears over the side." S745: "You lie in the mummy case, your arms folded across each other, face grimaced, running out of air rapidly and with almost no room to maneouvre. The coffin lid is about ten times heavier than you, and its seal is very good." S746: "an" S747: "There must be more to this marvellous figure somewhere." S748: "It reminds you oddly of one of the symbolic pieces in Monopoly - the car, the boot and so on." S749: "An adamantine skull lies here, as if casually dropped by a god's hand." S750: "a cake of" S751: "That's the spirit, keep it up!" S752: "Really! How disgraceful!" S753: ""For foulmouths everywhere"." S754: "Old Evans' hat is empty. You feel terribly guilty." S755: "That iron key seems to have washed up here..." S756: "...and there's the strange stone again." S757: "Four be the things I'd been better without:" S758: "Love, curiosity, freckles and doubt." S759: "-- Dorothy Parker, "Inventory"" S760: "It seemed that the next minute they would discover" S761: "a solution. Yet it was clear to both of them that" S762: "the end was still far, far off, and that the" S763: "hardest part was just beginning." S764: "-- Anton Chekhov, "The Lady with the Dog"" S765: " The mouse" S766: "Behind the mouldering wainscot shrieked." S767: "-- Alfred, Lord Tennyson, "Mariana"" S768: "Parturient montes, nascetur ridiculus mus." S769: "-- Horace, "Ars Poetica"" S770: "Zeus, whose will has marked for man" S771: "A single way where wisdom lies" S772: "Ordained one eternal plan:" S773: "Man must suffer to be wise." S774: "-- Aeschylus, "Agamemnon"" S775: "I might repeat to myself, slowly and soothingly," S776: "a list of quotations beautiful from minds profound;" S777: "if I can remember any of the damn things." S778: "-- Dorothy Parker" S779: "More ways of killing a cat" S780: "than choking her with cream." S781: "-- Charles Kingsley" S782: "I would like to be there," S783: "were it but to see how the cat jumps." S784: "-- Sir Walter Scott" S785: "Do not go gentle into that good night." S786: "Rage, rage against the dying of the light." S787: "-- Dylan Thomas" S788: "No, 'tis not so deep as a well, nor so wide as" S789: "a church door; but 'tis enough, 'twill serve." S790: "-- Shakespeare, "Romeo and Juliet"" S791: "...I have just signed legislation that will outlaw" S792: "Russia for ever. We begin bombing in five minutes." S793: "-- President Reagan, mistakenly believing the TV" S794: " cameras were switched off" S795: "What is a ship but a prison?" S796: "-- Robert Burton (1577-1640)" S797: "The remarkable fact is that the values of these" S798: "numbers seem to have been very finely adjusted" S799: "to make possible the development of life." S800: "-- Stephen Hawking, "A Brief History of Time"" S801: "Remember that you are an Englishman, and have" S802: "consequently won first prize in the lottery of life." S803: "-- Cecil Rhodes (1853-1902)" S804: "Les plus desesperes sont les chants les plus beaux" S805: "Et j'en sais d'immortels quit sont de purs songlots." S806: "-- Alfred de Musset, "La Nuit de mai"" S807: "There is no return game between a man and his stars." S808: "-- Samuel Beckett, "Murphy"" S809: "Throw away thy rod," S810: "Throw away thy wrath:" S811: "O my God." S812: "Take the gentle path." S813: "-- George Herbert, "Discipline"" S814: "Speak gently, she can hear" S815: "The daisies grow." S816: "-- Oscar Wilde, "Requiescat"" S817: "Too poor for a bribe, and too proud to importune" S818: "He had not the method of making a fortune." S819: "-- Thomas Grey, "Sketch of His own Character"" S820: "Facilis descensus Averno:" S821: "Noctes atque dies patet atri ianua Ditis;" S822: "Sed revocare gradum superasque evadere ad auras," S823: "Hoc opus, hic labor est." S824: "-- Virgil, "The Aeneid" Book VI:126" S825: "We are the children of primeval night; we bear" S826: "The name of Curses in our home deep under earth." S827: "-- Aeschylus, "The Eumenides"" S828: "Thou makest his beauty to consume away," S829: "Like as it were a moth fretting a garment:" S830: "Every man therefore is but vanity." S831: "-- Psalms 39:12 (Book of Common Prayer version)" S832: "White lilac bowed," S833: "Lost lanes of Queen Anne's lace" S834: "And that high-builded cloud" S835: "Moving at summer's pace." S836: "-- Philip Larkin, "Cut Grass"" S837: "At the end of the day victory belongs to the Curses," S838: "Who shout in shrill triumph" S839: "Over the utter rout of the defeated house." S840: "-- Aeschylus, "Seven Against Thebes"" S841: "He shall separate them one from another," S842: "as a shepherd divideth his sheep from the goats." S843: "-- Matthew 25:32" S844: "Quickly now the amber" S845: " Takes the fly with knees deranged" S846: "To be buried unseen, unfound" S847: " And irrevocably changed." S848: "-- Dean Waynflete, "Questions of Substance"" S849: "Thus the devil played at chess with me, and yielding" S850: "a pawn, thought to gain a queen of me, taking" S851: "advantage of my honest endeavours." S852: "-- Sir Thomas Browne, "Religio Medici" pt I" S853: "A nice, - respectable, - middle class, middle-aged maiden" S854: "lady, with time on her hands and the money to help her pass" S855: "it... Let us call her Aunt Edna... Aunt Edna is universal," S856: "and to those who may feel that all the problems of the" S857: "modern theatre might be solved by her liquidation, let me" S858: "add that... she is also immortal." S859: "-- Terence Rattigan, preface to the "Collected Plays"" S860: "I seemed to move among a world of ghosts," S861: "And feel myself the shadow of a dream." S862: "-- Alfred, Lord Tennyson, "The Princess"" S863: "If the doors of perception were cleansed," S864: "everything would appear to man as it is, infinite." S865: "-- William Blake" S866: "Follow the instructions," S867: "tell us what you think:" S868: "they lose something in translation," S869: "they might as well be written in invisible ink." S870: "-- Peter Hammill, "Invisible Ink"" S871: "On a round ball" S872: "A workman that hath copies by, can lay" S873: "An Europe, Afrique and an Asia," S874: "And quickly make that, which was nothing, All." S875: "-- John Donne, "Valediction: Of Weeping"" S876: "What you don't know would make a great book." S877: "-- The Rev. Sydney Smith" S878: "Sir Walter Elliot, of Kellynch-hall, in Somersetshire," S879: "was a man who, for whose own amusement, never took up" S880: "any book but the Baronetage; there he found occupation" S881: "in an idle hour, and consolation in a distressed one" S882: "-- Jane Austen, "Persuasion"" S883: "I am the Love that dare not speak its name." S884: "-- Lord Alfred Douglas, "Two Loves"" S885: "'I am inclined to think -' said I." S886: "'I should do so,' Sherlock Holmes remarked" S887: "impatiently." S888: "-- Sir Arthur Conan Doyle, "The Valley of Fear"" S889: "Hell is a city much like London -" S890: "A populous and a smoky city." S891: "-- Shelley, "Peter Bell the Third"" S892: "I hope I shall never be deterred from detecting" S893: "what I think a cheat, by the menaces of a ruffian." S894: "-- Dr Johnson (a letter from 1775)" S895: "Expatiate free o'er all this scene of man;" S896: "A mighty maze! but not without a plan." S897: "-- Alexander Pope, "An Essay on Man"" S898: "It's hard to be religious when certain people" S899: "are never incinerated by bolts of lightning." S900: "-- Bill Watterson, "Calvin & Hobbes"" S901: "Follow me, follow" S902: "Down to the hollow" S903: "And there let us wallow" S904: "In glorious mud." S905: "-- Flanders and Swann" S906: "Zoe, logic merely enables one" S907: "to be wrong with authority" S908: "-- Dr Who, aboard "The Wheel In Space"" S909: "Then for as moche as a philosofre saith," S910: ""he wrappith him in his frend, that condescendith" S911: "to the rightfulle praiers of his frend,"" S912: "therefore have I yeven the a suffisant Astrolabie" S913: "as for oure orizonte, compowned after the" S914: "latitude of Oxenforde;" S915: "-- Geoffrey Chaucer, "A Treatise on the Astrolabe"" S916: "Upon a nyght in sleep as he hym leyde," S917: "Hym thoughte how that the wynged god Mercurie" S918: "Biforn hym stood and bad hym to be murie." S919: "His slepy yerde in hond he bar uprighte;" S920: "An hat he werede upon his heris brighte." S921: "-- Geoffrey Chaucer, "The Knight's Tale"" S922: "Benedick:" S923: " To bind me or undo me, one of those." S924: "-- Shakespeare, "Much Ado About Nothing"" S925: "In the central display case, there is a curious" S926: "pottery model, either representing the Labyrinth" S927: "of Minos or a water-cooling system." S928: "-- W. J. Murnane's "Guide to Ancient Egypt"" S929: "I don't know who was there before me:" S930: "One person, several, none;" S931: "It doesn't matter." S932: "There are marks on the slabs of rock," S933: "Some beautiful, all mysterious;" S934: "Some certainly not made by human hands." S935: "-- Primo Levi, "A Valley"" S936: "Evans is content once again." S937: "The opening is securely wedged with the stone." S938: "The opening is securely wedged with the prop." S939: "the" S940: "The model coffin is closed and throbbing with electric power." S941: "A rather morbid gilded model coffin rests here." S942: "A rather morbid gilded model coffin rests open here." S943: "Mad Isaac's painting glares at you from just below the hook." S944: "The flag is laid out on the bed as a blanket." S945: "The god Apollo moves in mysterious ways, for another fig has appeared on the tree." S946: "Although he looks more of an acorn user, the squirrel sits watchfully pecking away at the nuts." S947: "You could just look inside the broken glass cabinet." S948: "The church door is open." S949: "The knight stands here, bowing toward Diana." S950: "The knight stands clasping the flower." S951: "The knight stands staunchly here." S952: "The iron key, out of reach below, is glued somehow to the strange stone." S953: "Once the polar axis of a globe." S954: "Instead, there is an astrolabe." S955: "An amber gem gleams in the mouth of its face." S956: "The sceptre projects from the first socket like a handle." S957: "The sceptre projects from the second socket like a handle." S958: "The sceptre projects from the third socket like a handle." S959: "The great lid of the coffin is open." S960: "a" S961: "Made of terra-cotta and ceramic fragments, it has held together surprisingly well." S962: "Nothing there, but that cupboard looks interesting." S963: "Decidedly unsteady." S964: ""This viewpoint, one of the finest in the county, was laid down by Capability Meldrew, a well-known landscape gardener of his day. It was intended as one of the rewards of the garden maze, and was constructed c. 1808 after an earlier folly on the site collapsed."" S965: "Nightmarishly, even the floor you kneel on is a fallen tombstone." S966: "The gist of the inscription is: "Henri Maladreue, obiit mcdlvi."" S967: "The odd smell seems to be ozone, and it drifts up from a previously concealed aluminium staircase." S968: "Leading down." S969: "The bottom corner is signed simply "Helene"." S970: "One whole wall is an Impressionist mural painting of a yellow chair." S971: "One whole wall is an Impressionist mural painting of lilies on a pond." S972: "One whole wall is an Impressionist mural painting of a chateau in Aix-en-Provence." S973: "One whole wall is an Impressionist mural painting of nude bathers." S974: "One whole wall is an Impressionist mural painting of a waitress at a bar." S975: "One whole wall is an Cubist mural painting of a woman with a plate of fish on her head." S976: "One whole wall is an abstract Cubist mural painting." S977: "One whole wall is an Pre-Raphaelite mural painting of the Virgin Mary looking up at the light." S978: "One whole wall is an Impressionist mural painting of a woman with a parasol." S979: "One whole wall is an pointillist mural painting of a scene in a park by a lake." S980: "The lawn is lightly coated with broken plaster and dust, and in the spot where the statuette once stood is a dark, ancient well." S981: "You can make out nothing below, and the well is too small to climb down." S982: "Prominent amongst these is a plaster statuette, a bust of a woman." S983: "It stands four feet high. At the base is an engraving: "Self-Portrait, H.M. '54". (It's presumably not by Her Majesty the Queen, though.)" S984: "the old" S985: "Mounted on a plaque is an old sepia photograph of a man." S986: "The photograph is one of the very early ones which looks as if it was taken in the dark because the chemicals have gradually oxidised. The poor man in the frame (Mr Roger Meldrew, Esquire) looks as if he was propped up by a big clamp to hold him still for five minutes, and that's because he was." S987: "Amid the glass wall is an iron panel divided into a three-by-five grid. Behind the glass is a kind of see-saw of two leather baskets at opposite ends of an oak pivot. Projecting out of the back of the panel mechanism is a metal hand, which In one corner of the roof, above the other end of the see-saw, is a ." S988: "Particularly prominent are a large dial, like the volume control on an expensive hi-fi amplifier, and a big electrician's switch. Both are labelled in small print." S989: "Above the dial is a lower-case letter h with a slashed line through it. It is currently turned to 1.055 or thereabouts. There is something worryingly dangerous about its matter-of-factness." S990: "Through the square window in the door you can see a bar at which staff are serving, and a very crowded and lively cafe-restaurant beyond. The cabaret act has her back to you, and a considerable amount of her front to the diners." S991: "The joint on the water pipe looks none too sturdy." S992: "The decorated strip of entablature between the architrave and the cornice, in the Attic style circa fifth century B.C. Well, you did ask." S993: "Beside the table is a more substantial adviser, as if she too walks in this strange spirit plane. She is wearing frightening druidical robes, of strange pelts and furs, with nasty-looking charms around her neck. Every so often, she seems to catch sight of you out of the corner of her eye, but then look round and see nothing. The military men do not believe in her power, and yet... they treat her with respect." S994: "Nine times she waved the fluttering wimple round," S995: "And made a little plot of magic ground." S996: "And in that daisied circle, as men say," S997: "Is Merlin prisoner till the judgement day..." S998: "-- Matthew Arnold, Tristram and Iseult III (1852)" S999: "Curses are like young chickens," S1000: "they always come home to roost." S1001: "-- Robert Southey (1774-1843)," S1002: " "The Curse of Kehama"" S1003: "Let Rome in Tiber melt, and the wide arch" S1004: "Of the ranged empire fall! Here is my space." S1005: "Kingdoms are clay." S1006: "-- Shakespeare, "Antony and Cleopatra" I:1" S1007: "The wireless fills the air with Jemima's favourite station, "Mild-n-Breezy FM", about which the least said the better." S1008: "Definitely mollified." S1009: "Diana's tall marble statue bathes in the moonlight: and a flower is placed gaily in her hair." S1010: "Apollonius and Callimachus are now engaged in a furious, ugly brawl, from which it seems unlikely they will emerge for some considerable time." S1011: "Apollonius and Callimachus are having a furious, heated, endless argument about something. They seem well practised at this occupation." S1012: "Homer sits half-awake, clutching his syrinx." S1013: "The timber prop leans against the tottering Folly, supporting it." S1014: "There are paths only west and northwest." S1015: "Homer is asleep again, his syrinx tight in his arms." S1016: "Homer glares at you through sightless eyes." S1017: "Instructions" S1018: "How to play Curses" S1019: "Credits" S1020: "Release Notes" S1021: "Legal Niceties" S1022: "About Inform" S1023: "Archive" S1024: "A treasure in every sense, the orb pulsates with golden radiance." S1025: "The medicine bottle, alas, was undamaged by the fall down the chimney." S1026: "A cave carved from crystal icicles of rock and glowing with vivid, golden light, so bright it almost hurts your eyes. A narrow crevice opens out to an iron doorway and the relative darkness of the house. The rough stone floor levels out to a perfectly round, smooth white marble disc about five yards across, inscribed with a black lemniscus (or infinity) symbol." S1027: "Answer" [End of text] [End of file]